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PREFACE 


Increasing  demands  are  now  being  placed  on  our  waterways  and 
adjacent  structures  such  as  bridges,  wharves,  harbor  piers,  marinas, 
and  lock  entrances.  These  demands  are  attributable  to  the  phenom- 

» 

enal  growth  in  navigation  module,  whether  it  be  a  tanker, 
containership  or  barge  tow.  We  have  only  to  look  back  15  years  when 
the  break  bulk  C-3  and  the  T-2  tanker  were  prominent  on  the  seas. 

Let's  look  at  the  M.V.  African  Star,  a  break  bulk  C-3:  492  feet,  70 

ft  beam  16.7  kts  and  12,000  dwt.  Today  the  M.V.  Sea-Land  Finance: 

946  feet,  105  ft  beam,  S3  kts,  27,000  dwt.  Also,  there  was  the  T-2 
tanker:  524  feet,  68  ft  beam,  14.5  kts,  15,996  dwt.  Contrast  this 
with  today's  M.V.  Texaco  Sun:  745  feet,  102  ft  beam,  17  kts,  53,453 
dwt.  Additionally,  barges  now  moving  on  the  Gulf  Intracoastal 
Waterway  measure  up  to  290  feet,  each  barge  carrying  3000  dwt. 

Because  of  these  increases  in  size  and  speed,  the  forces  which  can  be 
delivered  to  structures  adjacent  to  the  waterway  have  substantially 
increased. 

The  increased  number  of  collisions  with  bridges  in  recent  years  has 
focused  more  interest  in  the  Coast  Guard  bridge  replacement  program. 
Designing  a  cost  effective  replacement  bridge  with  a  navigation  prism, 
capable  of  meeting  the  present  day  needs  of  navigation,  is  easy  to  justify. 
These  replacement  bridges  are  highly  cost  effective  because  the  replacement 
bridge  provides  for  optimum  productivity  of  navigation.  In  other  words, 
vessels  of  economic  site  are  able  to  utilize  the  waterway  resource.  How¬ 
ever,  the  protection  of  bridge  piers  is  another  matter.  They  are  not 


xii 


unlike  the  car  bumper  which  provide  no  utilitarian  value  of  space  or 
nobility  to  the  passenger. 

Conceptually,  protection  of  the  vessels  and  bridge  piers  is  provided 
by  a  fender  systea  adjacent  to  the  navigation  opening  of  the  bridge,  rather 
than  the  vessel.  The  dileama  which  now  exists  is,  simply,  that  vessels 
have  grown  in  magnitude  and  disproportionately  to  the  growth  in  size  or 
capability  of  the  bridge  protection  systems.  To  completely  protect  against 
maximum  possible  impact  of  collision,  in  soae  cases,  now  dictates  placement 
of  a  mass  in  the  waterway  so  heavy  that  its  cost^exceeds  the  cost  of  the 
bridge  it  protects.  Such  a  mass,  however,  affords  little  or  no  protection 
to  the  vessel.  These  problems  remain  a  concern  of  the  bridge  owner,  the 
vessel  operator,  port  authorities  and  the  Coast  Guard.  It  certainly 
follows  that  full  utilization  of  existing  technology  and  identification  of 
these  areas  where  research  is  needed  will  lead  to  better  protective  systems 
at  lower  cost. 

Recognizing  that  a  single  source  of  reference,  containing  all  existing 
technical  data,  methodology  for  selection  of  optimum  fendering  devices  and 
recommended  standards  was  urgently  needed,  the  Coast  Guard  advertized  for 
contract  services  for  a  State  of  the  Art  Study  for  Bridge  Protective  Systems 
and  Devices  on  25  February  1977.  The  applicability  of  this  study  to 
similar  efforts  in  harbors  was  recognized  by  the  American  Association  of 
Port  Authorities,  Committee  IV.  At  Committee  IV's  suggestion  the  Coast 
Guard  wrote  in  their  contract  to  identify  techniques  that  would  be  appli¬ 
cable  to  harbor  structures,  other  than  bridges.  The  research  contract  was 
awarded  to  the  Department  of  Civil  Engineering,  University  of  Maryland  on 
15  July  1977. 
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During  the  interia  of  time  that  the  State-of-the-Art  Study  was  under¬ 
way,  I  was  able  to  share  10  years  of  experience  in  Coast  Guard  bridge 
administration  in  return  for  an  overview  of  specialized  expertise  of  the 
authors  in  their  research  and  structural  analysis.  For  aany  hours  spent 
accoapanying  Dr.  Derucher  and  Dr.  Heins  in  aeeting  with  Port  Directors, 
harbor  wasters,  pilots  and  consultant  engineers,  1  aa  extreaely  grateful. 
During  these  exchanges  of  information  I  was  able  to  foraulate  several 
basic  assumptions  which  I  would  like  to  pass  on  to  you:  (1)  a  fender 
system  or  as  I  prefer,  an  attenuation  device,  doesn't  know  whether  it  is 
adjacent  to  a  harbor  pier  or  bridge  pier,  (2)  a  proper  system  will  evolve 
after  using  all  known  technology  applied  expertly  to  the  precise  situation 
encountered,  (3)  elaborate  and  soeietimes  extensive  mathematical  computation 
should  be  employed  in  each  new  set  of  circumstances,  (4)  more  innovative 
devices  have  recently  been  incorporated  in  the  selection  of  harbor  pier 
protection  than  on  bridge  piers,  (5)  the  key  to  success  is  not  to  increase 
the  mass  or  rigidity,  but  to  increase  the  shock  absorption  or  attenuation 
qualities  of  the  structure. 

I  view  this  undertaking  as  a  useful  compilation  of  information 
presently  available,  but  aore  importantly  a  plateau  from  which  we  can 
now  plunge  into  the  overdue,  long  sought  iaproveaent  in  the  present 
state-of-the-art.  It  is  hoped  that  this  book  will  serve  as  useful 
reference  to  the  harbor  aaster,  the  port  engineer,  the  consultant  engineer, 
the  bridge  owner  and  the  Coast  Guard  officer  engaged  in  bridge  aatters.  I 
look  forward  to  an  eventual  up-date  of  existing  standards  calling  for 
better  design  calculations  and  innovated  design  coneepts.  I  feel  the  most 
useful  contributions  of  this  effort  is  in  the  area  of  computer  analysis 


which  will  be  used  by  the  Coast  Guard  and  hopefully  to  a  greater  dagraa  by 

tha  consultant  engineer  in  his  effort  to  optimize  the  design  of  a  specific 

fandar  systaa.  Of  course,  tha  computer  is  only  an  aid  and  will  not 

supplant  tha  consultant's  years  of  experience,  innovated  design  concepts, 

realisation  of  cost  savings  in  the  installation  and  naintenance  of  a 

particular  systaa  foremost  in  the  mind  of  the  Port  Director  and  bridge 

owner.  I 

i 
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Ralph  T.  Nancill ,  Jr. 

Chief,  Bridge  Modification  Branch 
U.S.  Coast  Guard  Headquarters 
EDITOR 
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CHAPTER  I 
INTRODUCTION 

GENERAL 

t 

» 

Tankers,  bulk  carriers,  cargo  vessels  and  barges  are  being  built  in¬ 
creasingly  larger  in  recent  years.  They  require  sore  room  to  maneuver  and 
supply  greater  cargo  capacities  than  ever  before.  This  places  increasing 
demands  on  waterways  and  adjacent  structures  such  as  bridges,  docks,  har¬ 
bors,  piers,  marinas,  lock  and  port  entrances. 

Coast  Guard  casualty  statistics  show  that  vessel  collisions  with  fixed 
objects,  such  as  bridges,  more  than  doubled  between  1966  and  1975  as  larger 
and  greater  numbers  of  vessels  used  the  nation’s  waterways.  One  Coast  Guard 
study  reveals  that  during  the  period  PY71  and  FY7S,  $23,153,000  in  damage 
and  fourteen  fatalities  were  encountered.  Obviously,  such  statistics  indi¬ 
cate  that  a  need  exists  to  assure  that  proper  design  practices  are  used  for 
fendering  system  installation.  This  need  was  recognized  by  the  bridge  Divi¬ 
sion,  U.S.  Coast  Guard,  which  is  charged  with  the  responsibility  to  provide 
for  the  economic  efficiency  and  safety  of  marine  transportation  under  bridges 
spanning  the  navigable  waters  of  the  United  States.  They  have  initiated 
a  research  contract  with  the  Department  of  Civil  Engineering,  University  of 
Maryland  to  conduct  a  study  of  the  State-of-the-Art  of  Bridge  Pondering 
Systems.” 


i 


FACTORS  CONSIDERED  IN  THE  DESIGN 

The  function  of  bridge  fendering  systems  are  to  protect  bridge  eleaents 
against  daaage  froa  waterborne  traffic.  There  are  aany  factors  to  bo  con¬ 
sidered  in  the  design  of  fendering  systeas  including  the  size,  contours, 
speed,  and  direction  of  approach  of  the  ship  using  the  facility;  the  wind 

and  tidal  current  conditions  expected  during  the  ship's  aaneuvers  and  while 

» 

tied  up  to  the  berth;  and  the  rigidity  and  energy-absorbing  characteristics 
of  the  fendering  systea  and  ship,  and  finally  the  subgTade  soil  condition. 
The  final  design  selected  for  the  fender  systea  will  generally  evolve 
after  Baking  arbitrary  liaitations  to  the  values  of  soae  of  these  factors 
and  after  reviewing  the  relative  cost  of  initial  construction  of  the  fen¬ 
dering  systea  versus  the  cost  of  fender  aaintenance  and  of  ship  repair.  In 
other  words,  it  will  becoae  necessary  to  decide  upon  the  aost  severe  docking 
ot  approach  conditions  to  protect  against  and  design  accordingly;  hence, 
any  situtation  which  iaposes  conditions  which  are  aore  critical  than  the 
established  aaxiaua  would  be  considered  in  the  reala  of  accidents  and 
probably  result  in  danage  to  the  dock,  fendering  systea  (whether  used  for 
dock  or  approach  conditions)  or  the  ship. 

TYPES  OF  FENDERING  SYSTEMS 

As  a  result  of  the  factors  considered  in  the  design,  aany  fendering 
systeas  have  been  designed  and/or  analyzed.  These  systeas  are  of  wide 
variety  and  aaterial  which  vary  considerably  in  design,  fabrication,  and 
cost.  As  a  result  of  the  literature  search,  basically  seven  types  of 
fendering  systeas  are  in  existence.  These  seven  systeas  are  as  follows: 


1.  Floating  Fender  or  Cane Is 

2.  Standard  Pile-Fender  Systea 

a.  Timber-Pile 

b.  Hung  Tiaber 

c.  Steel  Pile 

d.  Concrete  Pile 

3.  Retractable  Fender  System 

4.  Rubber  Fender  Systea 

a.  Rubber  in  Conpression  (Seike) 

b.  Rubber  in  Sheer  (Raykin) 

c.  Lord  Flexible 

d.  Rubber  ^n  Tension 

e.  Pneuaatic 

5.  Gravity  Type  Fender  Systea 

6.  Hydraulic  and  Hydraulic-Pneuaatic  Fender  Systea 

a.  "Dashpor"  Hydraulic 

b.  Hydreulic-Pneuaetic  Floating  Fender 

7.  Spring  Type  Fender  Systea 

As  indicated,  the  above  seven  (7)  fendering  systeas  were  found  to  be  in 
existence  throughout  the  world  by  a  comprehensive  library  and  computer  liter¬ 
ature  search.  These  systeas  will  be  explained  in  subsequent  chapters  as  to 
advantages,  disadvantages,  design  paraaeters,  aaterials  of  construction  and 
design  procedures  (hand  and  coaputer  oriented). 


CHAPTER  XI 

TYPES  OP  RENDERING  SYSTEMS 

This  chapter  deale  with  the  various  type*  of  fendaring  systeas  ea  men¬ 
tioned  In  Chapter  X.  The  uaea,  advantages,  and  disadvantages  of  each  type 
will  be  discussed.  Although  the  authors  discuss  the  tendering  eystews  In 

general  terns.  It  should  be  reaenbered  chat  fenders  are  applicable  to  both 

» 

the  docking  and  aoorlng  problaa  as  well  as  bridge  protection. 

FLOATING  PENDER  OR  CAMEL 

The  floating  fender  or  canel  le  the  slaplest  type  of  tendering  aystea 
employed.  This  is  often  used  In  coablnatlon  with  other  types  of  tendering 
to  provide  a  large  contact  area  and  thereby  Increase  the  efficiency  of  the 
tendering  systea  while  decreasing  the  load  concentration  at  any  one  point 
on  the  fender.  They  aay  be  used  as  rubbing  surfaces  to  protect  the  ship's 
bull  froa  daaage  by  the  dock  structure  during  berthing  procedures  or  froa 
dsaage  by  the  action  of  other  ships  while  aoored.  Traditionally,  the  caael 
has  consisted  of  treated  logs  of  Douglas  fir,  Southern  pine.  White  oak. 

Red  oek,  or  any  wood  with  relatively  high  fiber  hardness  and  high  bending 
strength.  Creenheart  and  othar  exotic  woods  have  natural  aarine  borer  re¬ 
sistance  but  ere  heavier  than  water.  Baking  their  use  as  caaels  Impractical 
la  aost  cases.  The  treated  tlaber  Is  hung  on  chains  In  single  unite,  bundled 
groups,  or  dapped  end  bolted  heavy  box  sections.  The  high  weight,  strength, 
and  stiffness  of  the  box  sections  have  Halted  their  use  to  busy  Navy  instal¬ 
lations  where  they  have  performed  satisfactorily  in  aost  instances.  Inergy 
absorption  occurs  ss  a  result  of  crushing  of  the  tlaber  fibers  and  bending  of 
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the  end  groupa .  Loss  of  strength  may  occur  where  the  timber  boo  boon 
splintered  due  to  faulty  construction  practices  or  high  energy  considera¬ 
tions  or  where  degradation  of  the  wood  has  occurred  due  to  narlne  borer  at¬ 
tack  or  rotting.  Though  the  canal  has  bean  used  for  years  as  a  component 
of  many  fandaring  systems,  it  may  result  in  severe  damage  to  the  ship's  hull 
and  fender,  dock  or  bridge  structure  as  a  result  of  concentrated  loadings 
along  the  length  of  the  camel  during  high  energy  Impacts.  Projecting  hard¬ 
ware  on  the  carnal  or  fendering  structure  may  result  in  tears  or  punctures 
to  the  ship's  hull. 

The  latest  development  In  floating  fenders  came  in  1967  in  which  the 
Hi-Dro  Cushion  camel  (Fig.  1)  was  constructed  and  tested  at  Treasure  Island 
Naval  Station  in  San  Francisco,  California.  The  Hl-Dro  Chsion  camel  con¬ 
sists  of  eighty-four,  three  foot  water  filled  cells,  grouped  into  four  dus¬ 
ters,  sandwiched  between  two  timber  rubbing  face^ and  held  in  place  by  cables. 
The  water  filled  cylinders  maintain  constant  pressure  during  compression  upon 
impact  by  forcing  water  out  through  small  orifices  in  the  tops  of  the  cylin¬ 
ders.  The  compression  of  the  cylinders  and  the  resulting  hydraulic  action, 
as  well  as  the  bending  of  the  timber  faces,  crushing  of  the  timber  fibers, 
and  movement  of  the  water  between  the  cell  clusters,  result  in  higher  energy 
absorption  than  that  of  the  traditional  camel.  In  addition,  the  Hi-Dro  Cush¬ 
ion  can  adjust  to  varying  ship  displacement,  approach  velocities,  and  environ¬ 
mental  factors. 

STANDARD  FILE  FENDER  SYSTEM 

The  timber-pile  (Fig.  2)  system  employs  piles  driven  along  a  wharf,  face 
bottom.  File  tops  nay  be  unsupported  laterally  or  supported  at  various  de¬ 
grees  of  fixity  by  naans  of  whalers  and  chocks.  Single  or  multiple  row 
whalera  may  be  used,  depending  on  pile  length  and  tidal  variation,  lavact 
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SECTION 

(•)  WITHOUT  LOWER  WALE 


SECTION 

(»)  WITH  LOWER  WALE 


riG.  2:  Tlabar  Pander  Pilaa  (Courtaay  of  U.S.  Navy) 


energy  upon  •  tlaber  fender  pile  ie  ebeorbed  by  deflection  end  the  Halted 
eoapreeelon  of  the  pile.  Tlaber  pilee  ere  ebundeat  end  have  e  low  initial 
coat.  They  ere  auaeeptlble  to  mechanical  daaege  and  biological  deteriora¬ 
tion.  Once  thia  happen* ,  the  energy-ebeorptlon  capacity  dedlnea  and  e  high 
aelntenance  or  repair  cost  results.  Tlaber  piling  can  be  observed  in  satie- 
fectory  service  in  noet  aerinee  where  smaller  recreational  vessels  ere 
berthed  end  aoored.  For  large  vessels  end  less  sheltered  waterways,  steel, 
concrete,  or  composite  sections  have  gained  wide  acceptance.  . 

The  hung  timber  system  (Fig.  3)  conslsta  of  timber  members  fastened 
rigidly  to  the  face  of  the  dock.  A  contact  frame  is  formed  which  distributes 
impact  loads,  but  its  energy-absorption  capacity  is  limited  and  it  is  unsuit¬ 
able  for  locations  with  significant  tide  and  current  effects.  Whalers  should 
be  provided  along  the  length  of  the  rubbing  strip  with  additional  whalers 
provided  near  mean  low  and  mean  high  water.  The  hung  timber  system  has  a 
low  initial  cost  and  is  a  less  blo-deterloration  hazard  than  the  standard 
timber  pile. 

Since  World  War  II  various  materials  have  been  used  in  conjunction  with 
the  hung  timber  fenders.  Cylindrical  and  rectangular  rubber  pieces,  hydrau¬ 
lic  units,  and  steel  springs  have  been  Inserted  behind  the  tlaber  framework 
in  order  to  improve  the  energy  absorption  characteristics  of  the  hung  fender. 

Steel  fender  piles  ere  occasionally  used  in  water  depths  greater  than 
forty  feet,  or  for  locations  where  very  high  strength  is  required  end  e  dif¬ 
ficult  seafloor  condition  results.  Its  main  disadvantages  ere  high  cost  and 
its  vulnerability  to  corrosion. 

tegular,  reinforced  concrete  piles  are  not  satlefectory  because  of  their 
Halted  internal  atreln-energy  capacity  end  the  steel  reinforcement  nay  cor¬ 
rode  due  to  concrete  cracking.  Prestressed  concrete  piles  with  rubber  buffers 
at  deck  level  hav*  been  used.  In  this  case,  the  rubber  units  ere  the  principal 
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SECTION 

(e)FILLED  CELLULAR  PIER 


SECTION 

(M  OPEN- TYPE  PIER 
(SEE  ALSO  FIGURE  IM7) 


FIG.  3:  Hung  Timber  Fenders  (Courtesy  of  U.S.  Hevy) 


energy-absorbing  aedls;  and  not  the  piles.  This  system  Is  very  resistant  to 
natural  and  biological  deterioration. 

RETRACTABLE  FENDER  SYSTEM 

Retractable  fenders  generally  consist  of  a  timber  or  steel  framework 
with  timber  facing  members  supported  on  open  pins  or  slotted  brackets  (Fig. 

4)  fastened  to  the  pier  or  dock  structure.  Energy  absorption  occurs  as  a 
result  of  the  vertical  displacement  of  the  fender,  friction  in  the  brackets, 
and  bending  and  Crushing  of  the  timber  fibers.  When  berthing  maneuvers  re¬ 
sult  in  an  Impact  force  greater  than  the  resultant  of  the  weight  of  the  fen¬ 
der  In  the  direction  of  the  brackets  and  the  friction  of  the  brackets,  the 
fender  begins  to  move  upward  and  backward  towafti  the  dock  face.  As  this 
motion  occurs,  more  timber  facing  strips  are  brought  Into  contact  with  the 
ship's  hull  increasing  the  resistance  of  the  fender  to  further  movement. 
Impact  energies  are  rarely  of  sufficient  magnitude  to  push  the  fender  to  the 
dock  face,  but,  should  this  occur,  additional  fendering  Is  provided  by  the 
deformation  of  the  timber  facings  and  then  the  underlying  framework. 

Design  considerations  must  Include  the  effective  weight  of  the  fender- 
lng  system  which  is  directly  affected  by  tidal  variations,  maximum  retract¬ 
ing  distance,  angle  of  Inclinations  of  the  brackets,  *;•«<?.  the  sufficient  num¬ 
ber  of  brackets.  Damage  to  the  supporting  brackets  can  render  the  fender 
Inoperative  although  replacement  of  the  timber  facing  strips  does  not  ad¬ 
versely  affect  energy  absorption  or  present  difficulties  for  repair.  Pro¬ 
visions  for  glancing  blows  may  Include  allowance  of  a  slight  amount  of  slip 
in  the  brackets.  The  fender  will  then  bear  upon  the  bracket  wall  of  esch 
fenderlng  section  which  comes  In  contact  with  the  vessel. 

Recent  Innovations  In  the  area  of  retractable  fenders  Include  the  use 
of  eteel  framework  with  rubber  tires  or  cylindrical  fenders  positioned  around 


Ml  Blottad  supporting  praekot* 


(k)  Opon  pin  supporting  PKlttM 


FIG.  4:  Retractable  Fender  Breckete  (Courteey  of  D.S.  ltavy) 


the  vertical  axis  allowing  free  rotation  about  tha  vertical  axis.  This  aye- 

tea  Incorporated  countervelghte  to  counteract  the  negative  moment  of  portion* 

* 

of  the  fraae  loaded  eeavard  from  the  bearing  pile*.  The  rubber  tire*  ellmi- 
aata  nany  of  the  concern*  regarding  glancing  blow*  by  allowing  free  rota¬ 
tion,  decreasing  the  aeverity  of  the  reaction  fore*  which  would  reeult  froo 
timber  aectiona,  and  reduce  wear  and  nalntenance  of  contact  member a. 

RUBBER  FENDER  SYSTEMS 

The  rubber  fender  ayetems  occur  in  five  types  as  outlined  earlier.  Rub¬ 
ber  in  compression  (Seike)  consists  of  a  aeries  of  rubber  cylindrical  or  rec¬ 
tangular  tubes  installed  behind  standard  fender  piles  or  behind  hung-type 
fenders.  Energy  absorption  occurs  as  a  result  of  the  deflection  of  the  fen¬ 
der  and/or  the  internal  atress-atrain  characteristics  of  the  rubber  material. 
When  bolted  directly  to  the  face  of  the  pier,  car*  must  be  taken  to  insure 
that  all  bolts  are  recessed  and  firmly  anchored  in  the  dock  structure  (Fig. 
5).  In  design,  a  proper  bearing  timber-frame  is  required  for  transmission 
of  impact  forces  from  ship  to  pier. 

Cylindrical  and  rectangular  units  can  b*  used  Interchangeably  in  most 
instances  (Fig.  6).  When  mounted  on  the  flat  face  of  a  pier,  they  may  be 
bolted  directly  to  the  face  of  the  dock,  draped,  hung  vertically  (Figs.  7 
and  9),  or  layered  using  one  or  more  of  these  methods  (Fig.  8).  On  curved 
structures,  draping  is  not  possible  and  the  fenders  must  be  bolted  to  the 
face  of  the  pier  or  hung  vertically.  Draped  fenders  rsqulre  a  solid  dock 
face  of  at  least  six  feet  to  insure  at  least  a  three  foot  depth  of  contact 
between  the  fender  and  the  ship's  hull.  This  makes  pre-curved  sections  a 
necessity.  All  connections  should  be  recessed  so  that  they  do  not  protrude 
beyond  the  face  of  the  dock.  The  low  point  of  aach  fender  should  be  fitted 
with  a  drain  hole. 


Rectangular  Rubber  Pender  (Courtesy  of  Coodyear) 
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FIG.  6:  Layered  Rubber  Fendera  (Courtesy  of  Goodyear) 


Rectangular  Rubber  Fendere  (Courteey  of  Uni royal) 


Whan  rubber  fenders  are  applied  to  tba  dock  face  la  may  of  tba  above 
manners ,  cartels  problems  arlae  due  to  the  contact  of  the  vaaaal  aad  rubber 
fender.  The  rubbing  action  of  tba  ehlp’a  hull  against  tha  fender  nay  damage 
the  fender  If  unevenness  exists  along  the  bull  due  to  rivets,  butt  Joints, 
or  any  number  of  slightly  protruding  eleaenta. 

Energy  absorption  capacity  of  such  a  system  can  be  varied  by  using  the 
tubes  In  single  or  double  layers,  or  by  varying  tube  sites.  Tbs  energy  ab¬ 
sorption  of  a  cylindrical  tube  Is  nearly  directly  proportional  to  tbs  ship's 
force  until  the  deflection  equals  approximately  one-half  the  external  diame¬ 
ter;  after  that,  the  force  Increases  much  more  rapidly  than  the  absorption 
of  energy. 

Another  method  of  utilising  rubber  In  compression  Is  to  mount  the  rub¬ 
ber  behind  timber  rubbing  strips  thereby  eliminating  the  contact  of  the  rub¬ 
ber  against  the  ship  aad  all  of  the  ensuing  difficulties  (Figs.  1°  and  11). 

In  this  manner,  additional  energy  absorption  la  provided  by  the  bending  and 
crushing  of  the  timber  fibers,  kubber  fenders  may  be  positioned  with  the 
bore  parallel  or  perpendicular  to  the  dock  face.  When  positioned  perpendic¬ 
ular  to  the  dock  so  that  the  sections  are  axially  end-loaded  (Fig.  12),  the 
energy  absorption  and  reaction  force  curves  ere  very  nearly  linear.  When 
positioned  parallel  to  the  dock  so  that  the  sections  ere  loaded  perpendicu¬ 
lar  to  the  bore  of  the  fender,  there  Is  a  disproportionate  increase  In  both 
the  energy  and  force  for  a  given  deflection  (Fig.  13).  Therefore,  using 
either  the  cylindrical  or  rectangular  fenders  In  axial  compression  allows 
design  over  s  larger  range  of  deflections  than  using  either  In  radial  com¬ 
pression. 

Still,  another  type  of  rubber  fender  used  In  compression  la  the  trape- 
soldal  fender  of  which  two  types  exist:  the  Internal  bottom  mounting  plats 
(Fig.  14a)  aad  the  external  bottom  mounting  plats  (Fig.  14b).  These  fenders 
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Axially  Mounted  Rubber  Fenders  (Courtesy  of  Goodyear) 


FIC.  13:  Side  Loaded  Rubber  Fender  Assemblies  (Courtesy  of  Uniroyal) 
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ms y  bt  bo lead  debar  hor iron tally  or  vertically  to  eba  face  of  a  4ock  or  ebay 
may  ba  applied  behind  timber  rubbing  atripa.  Whan  noun tad  betveen  the  timber 
facing  and  eba  dock,  thay  may  be  uaod  aingly  or  may  be  bolted  together  to 
form  what  reeeablea  a  large  rubber  "X"  either  with  or  without  a  top  or  bot¬ 
tom  (Fig.  15). 

Rubber  fundera  in  compreesion  may  aleo  ba  applied  directly  to  the  ves- 
acla  (Fig.  16). 

The  Kaykln  fender  (Fig.  17)  ia  the  most  conmonly  ueed  rubber  In  ahear 
system.  The  Raykin  consists  of  a  series  of  rubber  pads  bonded  between  steel 
plates  to  form  a  series  of  "sandwiches"  mounted  firmly  aa  buffers  between  a 
pile-fender  system  and  pier.  Two  types  of  mounting  units  are  available,  which 
are  capable  of  absorbing  100  percent  of  the  energy.  The  only  problem  with 
the  rubber  in  shear  fenders  is  that  they  tend  to  be  too  stiff  for  small  ves¬ 
sels  and  the  steel  plates  havs  a  tendency  to  corrode.  Therefore,  it  follows 
that  they  have  a  high  energy  absorbing  capacity  for  larger  ships. 

Solid  cylinders  and  rectangular  rubber  members  have  been  used  as  shear 
fenders.  By  attaching  the  rubber  section  to  the  underside  of  the  dock  and 
to  a  horizontal  piece  of  timber  or  steel  to  which  timber  rubbing  strips  are 
attached,  the  rubber  is  put  into  direct  shear  by  any  impact  load  (Figs.  18 
and  19).  As  with  the  Raykin  fender,  this  system  is  best  suited  for  a  large, 
uniform  ship  size  and  is  not  soft  enough  for  smaller  ships. 

The  Lord  flexible  fender  (Fig.  20)  consists  of  an  arch-shaped  rubber 
block  bonded  betveen  two  end  steel  plates.  Under  axial  loading,  the  Lord 
fender  buckles  in  much  the  same  way  that  a  column  will  buckle  if  the  slender¬ 
ness  ratio  becomes  large  enough  to  cause  Instability.  It  can  be  Installed 
on  open  or  bulkhead  type  piers  and  on  dolphins,  or  incorporated  with  standard 
piles  as  the  hung  system.  Impact  energy  is  absorbed  by  banding  and  compres¬ 
sion  of  the  arch-shaped  rubber  column.  With  the  Lord  flexible  fender,  possi¬ 
ble  destruction  of  the  bond  between  the  steel  plates  and  rubber  may  result. 
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FIC.  20:  Lord  Flexible  Fender  (Courtesy  Lord  Co.  end  U.S.  Hevy) 


lubber  la  tension  fenders  coneleta  ef  •  combination  of  rubber  and  steel 
fabricated  in  a  cone-shaped,  compact  bumper  form,  molded  Into  a  specially 
cast  steel  frame,  and  bonded  to  the  steel.  It  sbsorbs  energy  by  torsion, 
compression,  shear,  and  tension.  Their  main  disadvantage  is  possible  destruc¬ 
tion  of  the  bond  between  steel  castings  and  the  rubber. 

The  final  category  of  rubber  fendering  systems  is  the  pneumatic  fenders. 
These  are  presturised,  airtight  rubber  devices  da signed  to  absorb  anergy  by 
compression  of  air  inside  a  rubber  envelope  (Fig.  21).  Pneumatic  fenders 
have  recently  been  applied  to  fixed  dock-fender  systems  (Fig.  22)  and  ere 
feasible  for  use  as  ship  fenders  or  shock  absorbers  on  floating  fender  sys¬ 
tems.  Two  pressure  ranges  are  used  in  the  pneumatic  fenders,  approximately 
one  psi  and  seven  psl.  A  proven  fender  of  this  type  is  the  pneumatic  tire 
wheel  fender  which  consists  of  pneumatic  tires  and  wheels  capable  of  rotat¬ 
ing  freely  around  a  fixed  or  floating  axis.  The  fixed  unit  la  designed  for 
incorporation  in  concrete  bulkheads.  The  floating  unit  may  consist  of  two 
to  five  tires.  Energy-absorption  capacity  and  resistance  load  depends  on 
the  else  and  number  of  tires  used  and  on  initial  air  pressure  when  inflated. 

Pneumatic  fenders  can  be  hung  by  cable  or  chains  through  the  metal  end 
rings  which  are  located  at  each  end  or  they  may  be  encased  in  a  net  and  hung 
at  various  points  along  the  fender  length  (Fig.  23).  When  used  on  a  dock  or 
pier,  the  abrasion  resulting  from  berthing  and  mooring  can  be  prevented  by 
the  use  of  tires  fastened  to  the  pneumatics  by  a  network  of  rope  or  cable. 

The  range  of  sites  available  allows  for  design  of  an  adequate  tendering  sys¬ 
tem  even  when  space  is  critical. 

A  recent  development  in  the  pneumatic  field  is  the  use  of  foam  filled 
fenders  (Fig.  24).  During  accidental  collisions,  there  la  a  slight  chance 
that  the  pneumatic  fenders  may  be  overloaded  and  release  air  through  a  release 
valve  or  through  a  puncture.  In  this  event  the  fender  becomes  completely 


II 


ineumatic  Fender*  in  Whaling  (Courtesy  of  Yokohama) 


TIC.  22:  Pneumatic  Fandara  (Courteey  of  Yokohama) 


23:  Anchoring  for 


Inoperable.  Although  repair  nay  be  poealble  on  alte,  the  fender  ie  completely 
out  of  coanisslon  and  the  dock  la  unprotected  for  the  length  of  time  neceaaary 
to  effect  repairs.  The  foam  filled  fender  is  unsinkable  and,  when  punctured, 
will  remain  afloat  and  operative  until  removed  for  repair.  Foam  filled  and 
pneumatic  fenders  have  few  maintenance  problems.  Aside  from  punctures  or 
other  accidental  damage,  the  only  maintenance  required  are  occasional  checks 
of  the  fenders  themselves  and  their  supporting  chains  or  cables. 

GRAVITY  FENDERS 

Gravity  fenders  (Fig.  25)  consist  of  a  large  weight,  generally  concrete, 
suspended  by  chains  or  cables  from  beneath  a  dock  structure.  Wood  facings 
transfer  Impact  energy  from  the  ship's  hull  to  the  suspended  weight.  The 
displacement  of  this  weight  is  the  main  energy  absorption  mechanism  with 
additional  energy  provided  by  the  crushing  of  timber  fibers  or  deflection 
of  rubber  if  present.  High  energy  absorption  is  achieved  by  long  travel  of 
the  weight.  Due  to  the  site  of  the  gravity  fender,  it  is  best  suited  for 

exposed  locations  where  the  vessel  size  Is  large.  The  rubbing  strips  must 

have  sufficient  "give"  to  allow  the  ship  to  act  on  the  concrete  block  without 
damage  to  the  ship's  hull.  Among  the  difficulties  of  the  gravity  fender  are 
the  construction  and  repair  problems  Inherent  In  Its  large  size.  Heavy  equip¬ 
ment  Is  required  for  both  Installation  and  replacement.  The  suspension  sys¬ 
tem  is  subjected  to  not  only  mechanical  wear,  but  also  sea  water  corrosion 

and  must  be  maintained.  These  problems  result  in  both  high  initial  and  high 

maintenance  costs.  The  dock  structure  required  to  support  the  gravity  fender 
may  also  be  expensive  to  design  and  construct.  Tha  swinging  action  of  gravity 
fenders  has  resulted  In  serious  damage  to  the  supporting  structure  when  glanc¬ 
ing  blows  or  accidental  collisions  occur. 
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HYDRAULIC  AND  HYDRAULIC-PNEUMATIC  FENDER  SYSTEM 


Hydraulic  fandera  are  of  two  type*:  hydraulic-dashpot  and  hydraulic- 
pneumatic  (Fig.  24).  The  daahpot  consist*  of  a  fluid  filled  cylinder  fitted 
with  a  plunger  which  when  depressed,  forces  fluid  through  a  variable  of  non¬ 
variable  orifice.  The  fluid  is  generally  forced  to  an  elevated  reservoir  *o 
that  gravity  and  the  high  pressure  return  the  dashpot  to  its  original  posi¬ 
tion  once  the  impact  energy  is  dissipated.  The  variable  orifice  changes  its 
cross-sectional  area  with  respect  to  the  plunger  travel  thereby  maintaining 
a  constant  reaction  force.  This  system  is  similar  to  that  used  in  railroad 
cars  to  prevent  damage  from  longitudinal  blows.  The  hydraulic  unit  is  mounted 
between  the  dock  structure  and  a  flexible  fender.  The  advantages  of  this  sys¬ 
tem  include  nearly  90  percent  efficiency  in  dissipation  of  kinetic  energy. 

The  hydraulic  system  maintains  this  efficiency  over  a  wide  range  of  velocities, 
maintains  a  constant  force,  reacts  with  minimum  rebound  resulting  in  little 
or  no  drift.  The  adaptability  of  these  fenders  allows  use  in  a  wide  range 
of  conditions  by  changing  the  metering  system  without  substituting  larger 
units.  Corrosion  or  severe  impact  loads  may  result  in  serious  damage  to  the 
unit  rendering  it  Inoperative.  Repair  can  usually  be  efiected  without  heavy 
equipment  but  during  the  repair  period,  the  only  fendering  available  is  that 
provided  by  the  piles  or  timber  rubbing  strips. 

Hydraulic-pneumatics  are  a  hybrid  form  of  the  pneumatic  and  hydraulic 
fenders.  A  rubber  envelope  is  filled  with  water  or  air  and  water.  Energy 
absorption  occurs  as  a  result  of  viscous  resistance  and  air  compression. 

These  fenders  are  suspended  in  the  same  manner  as  the  air-filled  and  the  foam- 
filled  pneumatics  and  share  similar  abrasion  characteristics. 
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SPRING  TYPE  FENDER  SYSTEM 

Seed  spring  fsndsrs  consist  of  stsel  springs  mount sd  between  the  dock 
structure  end  s  flexible  fendering  system,  either  piles  or  timber  frameworks. 
The  most  common  configuration  consists  of  steel  piles  framed  together  with 
a  timber  facing  of  some  sort  bearing  on  steel  plungers  and  steel  springs. 

The  springs  are  housed  in  s  metal  box  with  a  removable  cover  to  provide  easy 
maintenance  and  repair  of  the  springs.  Maintenance  of  the  springs  involves 
coating,  cleaning  and  corrosion  checks.  The  principle  energy  absorption 
mechanism  is  the  compression  of  the  spring  with  additional  energy  provided 
by  the  deflection  of  the  piles  or  timber  framework.  Although  some  of  the 
installations  where  steel  springs  have  been  employed  have  provided  adequate 
service,  others  have  experienced  difficulty  due  to  failure  of  the  spring  as 
a  result  of  corrosion.  The  nature  of  the  spring  assembly  makes  this  fender¬ 
ing  system  suitable  for  exposed  sea  location  and  a  uniform  ship  sice. 

RESULTS  AND  DISCUSSIONS 


The  advantages  and  disadvantages  of  each  type  of  fendcrlng  system  as 
well  as  its  method  of  operation  was  explained  in  detail.  These  fenderlng 
systems  as  described  are  utilized  in  one  form  or  another  worldwide.  The 
majority  are  of  vintage  years  and  outdated. 

The  design  methods  used  for  each  system  are  based  on  the  energy-absorp¬ 
tion  method  in  which  no  emphasis  is  placed  on  distribution  factors.  Further, 
as  the  ships  incresse  in  size  and  velocity,  it  has  been  the  trend  to  increase 
the  size  of  the  fenderlng  system  rather  than  to  look  for  new  methods  of  de¬ 
sign  or  for  nmw  systems. 

Research  at  present  by  the  University  of  Maryland  is  directed  towards 
an  improvement  in  design  techniques  sad  the  development  of  nev  fenderlng 
systems  which  can  satisfactorily  handle  larger  vessels  and  speeds. 
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CHAPTER  III 


MATERIALS 

Materials  used  as  bridge  protective  devices  consist  of  three  principle 
classifications:  wood,  steel,  and  concrete.  This  chapter  is  concerned  with 
these  classifications  as  they  are  related  to  deterioration. 

WOOD 

Maritime  structure  constructed  of  wood  have  a  long,  colorful  history. 
While  some  structures  have  been  an  unqualified  success,  others  have  met  with 
dismal  failure.  Those  factors  which  cause  damage  to  the  wooden  structure 
shall  be  discussed  in  the  following  order:  fungi  attack,  Insect  attack,  fire 
damage,  chemical  damage,  impact  and  overload  failures.  The  various  types  of 
wood  will  also  be  discussed  emphasising  the  possible  advantages  of  hardwoods 
as  opposed  to  softwoods. 

Molds,  steins,  end  decay  in  timber  are  caused  by  fungi,  microscopic 
plants  requiring  organic  material  on  which  to  live.  Reproduction  occurs 
through  thousands  of  small  windblown  particles  called  spores.  Spores  send 
out  email  arms  which  destroy  timber  through  the  action  of  ensymes.  Fungi  re¬ 
quire  a  temperature  of  between  50*-90*  F. ,  food  and  moisture.  Timber  which 
Is  water  soaked  or  dry  normally  will  not  decay.  Molds  cause  little  direct 
staining  because  the  color  caused  is  largely  superficial.  The  cottony  or 
powdery  surface  growths  range  In  color  from  white  to  blade  end  are  easily 
brushed  or  planed  off  the  wood.  Steins,  on  the  other  hand,  cannot  be  removed 
by  surface  techniques.  They  appear  as  specks,  spots,  streaks,  or  patches  of 
varying  shades  and  colors  depending  upon  the  organism  which  la  infecting  the 
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timber.  While  stain*  and  soldi  should  not  ba  considered  ns  stages  of  decay 
since  the  fungi  do  not  attack  the  wood  substance  in  any  great  degree,  timber 
Infected  with  sold  and  stain  fungi  has  a  greater  capacity  to  absorb  water  and 
is,  therefore,  sore  susceptible  to  (hcay  fungi.  Decay  fungi  nay  attack  any 
part  of  the  timber  causing  a  fluffy  surface  condition  Indicative  of  decay  or 
rot.  Early  stages  of  decay  nay  show  signs  of  discoloration  or  nushroon-type 
growths  (Fig.  26).  In  eoae  types  the  color  differs  only  slightly  froa  the 
normal  color  giving  the  appearance  of  being  water  soaked.  Later  stages  of 
decay  are  easily  recognized  because  of  the  definite  change  in  color  and  phys¬ 
ical  properties  of  the  timber  (Fig.  27).  The  surface  becomes  spongy,  stringy, 
or  crumbly,  weak,  and  highly  absorbant.  It  la  further  characterized  by  a 
lack  of  resonance  when  struck  with  a  hammer.  Brown,  crumbly  rot  in  a  dry 
condition  is  known  as  "dry  rot".  Serious  decay  problems  are  indicative  of 
faulty  design  or  construction  or  a  lack  of  reasonable  care  in  the  handling 
of  the  timber.  Principles  that  assure  long  service  life  and  avoid  decay 
hazards  in  construction  include  building  with  dry  timber,  using  designs 
that  will  keep  the  wood  dry  and  accelerate  rain  runoff,  and  using  preserva¬ 
tive-treated  wood  where  the  wood  must  be  in  contact  with  water. 

Insect  damage  may  result  from  infestation  of  the  timber  members  with 
any  of  a  number  of  Insects:  powder-post  beetles,  termites,  marine  borers, 
etc.  Powder-post  beetles  are  reddish-brown  to  black,  hard-shelled  lnaects 
froa  1/8  to  1/2  inches  long.  The  Ufa  cycle  of  the  beetle  lncludea  four  dla- 
tinct  stages:  egg,  larvs,  transformation,  and  adult.  The  adult  bores  into 
the  timber  producing  a  cylindrical  tunnel  just  under  the  surface  in  which 
the  eggs  are  laid.  The  larva  burrow  through  the  wood  leaving  tunnela  packed 
with  a  fine  powder  1/16  to  1/8  inch  in  diameter.  Powder-post  damage  Is  in¬ 
dicated  by  this  fine  powder  either  fallen  from  the  timber  or  packed  into  tun¬ 
nels  within  the  wood  and  by  the  tunnels  and  holes  In  the  timber.  The  beetles 
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TIG.  26:  Early  Stages  of  Decay  at  Base  of  Timber  Member 


FIG.  27 


Advanced  Stage  of  Decay 


attack  both  sound  and  dccayad  wood,  but  are  not  active  in  decayed  wood  which 
la  water  aoaked.  They  nay  alao  cause  damage  by  transmitting  destructive 
fungi  from  one  site  to  another,  thus  spreading  decay. 

Termites  resemble  ants  In  size  and  general  appearance  and  live  in  slml- 
larly  organized  colonies.  Destruction  is  done  by  the  workers  only,  not  by 
the  soldiers  or  winged  sexual  adults.  Subterranean  termites  are  responsible 
for  most  of  the  damage  done  in  the  United  States.  They  are  more  prevalent 
In  the  southern  states,  but  are  found  In  varying  numbers  throughout  the 
states.  Termites  build  dark,  damp  tunnels  well  below  the  surface  of  the 
ground  with  some  of  these  tunnels  leading  to  the  wood  which  is  the  termites' 
source  of  food.  Termites  also  require  a  constant  water  supply  in  order  to 
survive.  Subterranean  termites  do  not  Infest  structures  by  being  carried 
to  the  construction  site.  They  must  establish  a  colony  In  the  soil  before 
they  are  able  to  attack  the  timber.  Tell-tale  signs  are  the  tunnels  In  the 
earth  leading  to  unprotected  timber  and  swarms  of  male  and  female  winged 
adults  in  the  early  spring  and  fall  (Fig.  28).  When  termites  successfully 
enter  the  wood,  they  make  tunnels  which  follow  the  wood  grain,  leaving  a 
shell  of  sound  wood  to  conceal  the  tunnels  (Fig.  29).  Methods  of  controlling 
termites  include  breaking  the  path  from  the  timber  to  the  ground  although  the 
best  method  is  to  treat  the  timber  with  a  preservative. 

Wood  inhabiting  termites  are  found  in  a  narrow  strip  around  the  southern 
boundary  of  the  United  States.  They  are  most  cotmnon  In  southern  California 
and  southern  Florida.  They  are  fewer  In  number  than  the  subterranean  termites, 
do  not  multiply  as  rapidly,  and  do  not  cause  as  much  damage.  But  because  they 
can  live  without  contact  with  the  ground  and  In  either  damp  or  dry  wood,  they 
are  a  definite  problem  and  do  considerable  damage  in  the  coastal  states.  They 
are  carried  to  a  building  site  in  timber  that  has  been  Infested  prior  to  de¬ 
livery,  thereby  making  Inspection  prior  to  delivery  a  necessity.  Full  length 
treatment  with  a  good  wood  preservative  is  reconendad. 
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Carpenter  ant*  arc  usually  found  in  stumps,  trees,  or  logs,  but  ara  some¬ 
times  found  in  structural  timbers.  Thay  range  in  color  from  brown  to  black 
and  in  sics  froa  large  to  aaall.  Though  carpenter  ante  are  often  confused 
with  termites,  they  can  be  distinguished  by  caaaparison  of  the  wing a  and 
thorax  (waist)  sixes  of  the  insects.  The  carpenter  ant  has  short  wings  and 
a  narrow  waist,  whereas  the  termite  has  long  wings  and  a  thicker  waist.  Car¬ 
penter  ants  use  wood.es  shelter,  not  food.  They  prefer  naturally  eoft  or  de¬ 
cayed  wood  and  construct  tunnels  which  are  very  smooth  and  free  of  dust.  Car¬ 
penter  ants  tunnel  across  the  wood  grain  and  cut  small  exterior  openings  for 
access  to  their  food  supplies  (Fig.  30).  A  large  colony  takes  from  three  to 
six  years  to  develop.  Prevention  of  ant  infestation  can  be  accomplished  by 
the  use  of  preservatives  along  the  length  of  the  timber  member. 

By  far  the  most  damaging  Insect  pest  is  the  marine  borer  (Fig.  31). 

Borers  have  been  known  to  ruin  piles  and  framing  within  a  few  months.  Mo 
ocean  is  completely  free  of  borers  and,  while  some  waters  may  be  relatively 
free,  the  statue  of  an  area  may  change  drastically  within  a  relatively  short 
period  of  time.  The  main  point  of  sttack  is  generally  between  the  high  tide 
level  and  the  mud  line.  Submergence  often  hides  tell-tale  signs  of  infesta¬ 
tion  so  that  the  first  sign  of  attack  may  be  the  failure  of  the  structure. 

The  borers  which  do  the  most  damage  are  the  mollusks,  related  to  clams  and 
oysters,  and  the  crustaceans,  related  to  lobsters  and  crabs. 

The  mollusk  borers  consist  of  the  "shipworm"  teredo,  the  "shlpworm" 
bankia,  and  the  Pholadidae.  There  are  other  types  of  shlpworms  throughout 
the  world,  but  they  all  live  and  survive  in  much  the  same  ways  though  sire 
and  environmental  requirements  may  vary.  The  teredo  has  a  wormllka,  slimy, 
gray  body  with  two  shells  attached  to  the  head  which  are  used  for  boring. 

Two  tubes  that  reaemble  a  forked  tail  and  normally  remain  outside  the  burrow 
are  the  only  external  indications  that  a  shlpworm  is  present.  The  shlpworm 
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can  seal  its  entrance  and  thereby  protect  the  burrow  from  intruders  or  foreign 
substances.  The  size  of  the  teredo  varies  from  3/8  to  1  inch  in  disaster  and 
from  six  inches  to  six  feet  in  length.  The  else  of  the  bankla  la  generally 
larger  than  the  teredo  while  other  characteristics  remain  the  eaae.  Both 
types  bore  tiny  holes  when  they  are  young  and  grow  to  maturity  inside  the 
wood.  Once  the  young  shlpvorm  has  entered  the  wood,  it  normally  turns  down 
and  expands  its  burrow  to  its  full  diameter.  Extremely  careful  observation 
with  a  hand  lens  Is  required  to  detect  the  entrance.  The  only  way  to  detect 
the  extent  of  the  damage  is  to  cut  the  wood  (Fig.  32)  or  take  borings  by 
some  other  method.  Because  the  first  sign  of  marine  borer  infestation  may 
be  the  failure  of  timber  members  (Fig.  33),  the  shipworm  should  be  considered 
extremely  dangerous.  Pholadldae  resembles  a  clam  with  its  body  entirely  en¬ 
closed  in  a  two-part  shell.  It  is  a  particular  danger  because  it  can  bore 
holes  up  to  1-1/2  Inches  deep  into  the  hardest  timber. 

The  most  common  crustacean  borer  la  the  limnora  or  "wood  louse".  Its 
body  is  slipper-shaped  from  1/8  to  1/4  inch  long  and  from  1/16  to  1/8  Inches 
wide.  It  has  a  hard  boring  mouth,  two  sets  of  antennae,  and  seven  sets  of 
legs  with  sharp  claws.  The  limnora  is  able  to  roll  Itself  into  a  ball,  to 
swim  and  to  crawl.  It  will  gnaw  Interlacing  branching  holes  in  the  surface 
of  the  wood  with  as  many  as  200  to  300  holes  per  square  inch.  These  holes 
follow  the  softer  wooden  rings  and  are  .05  to  .025  inch  in  diameter,  seldom 
over  3/4  inch  long.  As  a  result,  the  wood  becomes  a  mass  of  thin  walls  be¬ 
tween  burrows  wiich  break  away  exposing  new  areas  to  attack.  In  this  manner 
the  pile  is  slowly  reduced  in  diameter  (Fig.  34).  In  soft  woods  like  pine 
and  apruce,  the  diameter  may  be  reduced  as  much  as  two  Inches  per  year.  The 
chief  area  of  attack  is  between  the  low  water  level  and  the  mud  line  with 
occasional  activity  up  to  the  high  water  level.  The  limnora  does  not  seem 
to  be  affected  by  amall  environmental  changes  and  may  be  found  in  aalt  or 
brackish  water  of  eny  temperature,  polluted  or  clean. 
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•  32:  Cross-cut  Timber  Member  Shoving  Extensive  Damage 


Complete  protection  fro*  borer  stteck  le  essential.  Metel  armoring  le 
felling  Into  disuee  ee  la  concrete  casing.  The  very  best  Method  nay  prove 
to  be  jacketing  craosoted  piles.  The  aoat  practical  Method  Involves  heavy 
treatment  with  high  quality,  coal-tar  creosote  by  the  full  cell  Method  to 
the  point  of  near  saturation.  Although  shipvorms  will  generally  not  attack 
a  creosoted  member,  they  may  attack  any  area  which  has  been  damaged  and  any 
untreated  area.  Limnora  attack  the  creosoted  timber  directly  but  at  a  decel¬ 
erated  rate.  Other  types  of  wood  preservatives  in  used  Include  a  plastic 
outer  wrap  which  is  successful  as  long  as  the  plastic  is  not  damaged  and  cy¬ 
anide  treatment  which  is  messy  to  apply,  leaches  out  with  time,  and  may, 
therefore,  cause  damage  to  the  environment. 

Fire  damage  to  wood  is  a  real  problem  on  bridge  and  wharf  structures. 
Treatment  of  wood  with  preservatives  may  protect  the  wood  from  fungi  and 
Insect  attack  but  generally  results  in  making  the  wood  more  susceptible  to 
fire.  Damage  due  to  fire  is  readily  apparent  due  to  the  charred  appearance 
and  burnt  odor  of  fire  damaged  wood. 

Chemical  damage  to  wood  is  generally  very  difficult  to  determine  because 
it  often  resembles  damage  done  by  other  factors.  Fungi  attack  employs  a  chem¬ 
ical  reaction  between  the  enzymes  particular  to  each  fungus  and  the  wood  fiber. 
Fire  damage  Involves  the  oxidation  of  the  wood  fiber  which  is  again  a  chemical 
process.  It  is,  therefore,  important  to  report  any  apparent  damage  to  the 
timber  as  soon  as  possible. 

Impact  damage  may  occur  in  the  event  of  a  high  energy  collision  between 
a  vessel  and  a  fenderlng  system.  Because  wood  has  good  impact  characteristics, 
it  may  show  only  limited  signs  of  external  damage  and  must,  therefore,  be  in¬ 
spected  carefully  after  an  accident  or  suspected  accident.  The  timbers  may 
have  a  shattered  appearance  as  opposed  to  the  sagging  appearance  caused  by 
overload.  Compression  failure  will  resemble  wrinkled  skin  while  tension  fail¬ 
ure  looks  as  if  the  fibers  have  been  pulled  apart. 
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Once  provisions  have  bssn  taken  to  insure  that  failure  will  not  occur 
es  e  result  of  the  factors  discussed  shove,  e  wood  Bust  be  selected  on  the 
’oasis  of  its  aaterial  properties.  The  timber  aust  have  a  high  compressive 
strength  perpendicular  to  the  grain  to  resist  crushing,  a  high  degree  of 
fiber  hardness  to  resist  rubbing  action  but  not  to  the  point  that  brittle¬ 
ness  and  checking  result,  and  a  relatively  high  bending  strength.  In  general, 
Douglas  fir.  Southern  pine.  White  oak,  and  Red  oak  are  cosmonly  used  in  the 
United  States.  These  woods  must  be  protected  in  the  manners  discussed  ear¬ 
lier,  but  have  good  workability,  are  generally  readily  available  and  inex¬ 
pensive.  Douglas  fir  is  the  only  structural  timber  from  which  high  quality 
piles  of  100  foot  lengths  can  be  obtained. 

Various  hardwoods  have  been  used  in  fenderlng  and  include  several  exotic 
species  with  natural  borer  resistance.  Creenheart  is  the  most  common  of  these 
'  woods  and  is  available  in  various  thicknesses  and  lengths.  It  is  expensive. 

Tropical  timbers  tend  to  be  much  harder  than  the  soft  woods  and  cannot  be 
worked  with  ordinary  tools  Intended  for  soft  woods.  Metal  working  tools  are 
necessary  as  are  pre-dr illed  holes.  This  extreme  hardness  may  result  in 
splintering  of  the  timber  fiber.  Creenheart  is  heavier  than  water  resulting 
in  additional  construction  difficulties,  but  has  a  service  life  more  than 
three  times  that  of  oak  members. 

The  choice  of  Creenheart  or  the  softer  woods  must  be  based  on  economic, 
construction,  preservation,  and  service  life  considerations.  There  is  no 
single  solution  to  this  debate.  The  choice  aust  be  left  with  the  designer 
and  the  engineer  who  have  knowledge  of  the  peculiar  problems  of  their  design 
site. 
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STEEL 


Steel  le  e  material  which  hce  e  life  lone  high  compressive  end  teaelle 
strength,  but  lte  uee  In  marine  etructuree  ie  limited. 

Men'e  concern  with  the  corrosion  cherecterletlce  of  metele  ueed  In  marl- 
time  works  detes  to  the  fourth  end  fifth  centuries  B.C.  It  wes  observed  that 
while  most  metels  used  in  ships  deterioreted  in  some  way  when  exposed  to  eee 
water,  bronze  showed  little  or  no  corrosion.  Since  the  use  of  bronze  In 
marine  installations  is  not  feasible  now  or  in  the  near  future,  methods  must 
be  found  for  protecting  the  metal  most  commonly  used  in  these  structures, 
steel,  from  salt  sprays,  tidal  action,  and  other  environmental  factors. 

Corrosion  refers  to  the  conversion  of  metals  into  compound  forms  as  a 
result  of  some  natural  mechanism.  The  most  common  types  of  corrosion  are 
galvanic,  differential  environment  or  concentration  cells,  stray  current, 
bacterlologlc,  stress,  fretting,  impingement,  and  chemical  corrosions.  Gal¬ 
vanic  corrosion  requires  an  electrolyte,  sea  water,  and  two  dissimilar  metali 
coupled  together,  one  of  which  will  corrode.  The  corroding  area  is  referred 
to  as  the  anode,  while  its  counterpart  is  the  cathode.  The  process  Involves 
Che  flow  of  current  from  the  anode,  which  will  corrode,  to  the  cathode, 
which  is  protected.  Certain  metals  have  been  used  as  anodes  to  steel:  mag¬ 
nesium,  zinc,  and  aluminum  to  name  a  few.  The  order  in  which  joined  metals 
in  an  electrolyte  will  corrode  is  determined  by  the  voltaic  potential  of  the 
metal.  Magnesita  will  corrode  to  all  other  metals.  Zinc  will  corrode  to  all 
other  metals  except  magnesium.  Aluminum  will  corrode  to  all  other  metals  ex¬ 
cept  magnesium  and  zinc,  etc.  Corrosion  jrodidng  galvanic  cells  may  occur  in 
the  same  metal.  Steel  is  anodic  to  mill  scale  found  on  hot  rolled  steel  pro¬ 
ducts  such  as  steel  piling.  Bright  surfaces  are  anodic  to  matte  surfaces. 
Stressed  surfaces  are  anodic  to  normal  surfaces.  In  addition,  surface  imper¬ 
fections  and  non-haaogenaous  metal  may  esuse  galvanic  cells. 
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Differential  environment  corrosion  occura  when  a  metal  such  as  a tael  la 
In  contact  with  an  electrolyte  which  la  aon-homogeneous  from  point  to  point 
or  varies  In  concentration  along  the  surface  of  the  metal.  Some  of  the  major 
environmental  conditions  which  may  cause  corrosion  cells  to  develop  on  steel 
pilings  Include  varying  salt  conditions  in  the  soil  in  contact  with  che  pile, 
varying  moisture  conditions  in  the  soil  In  contact  with  the  pile,  different 
oxygen  concentrations  in  various  horizons  of  the  soil  or  water  In  contact 
with  the  pile,  and  foreign  matter  embedded  In  the  aoll  In  contact  with  the 
pile  such  as  cinders  or  pieces  of  metal.  Within  the  area  of  tidal  fluctua¬ 
tions,  the  oxygen  content  varies  considerably  between  the  high  and  low  tide 
levels  and  the  low  tide  and  ground  levels.  Current  flows  from  the  low  oxy¬ 
gen  to  che  high  oxygen  content  area  resulting  In  corrosion  In  the  low  oxy¬ 
gen  or  anodic  area.  Protruding  elements,  corners,  end  weld  points  tend  to 
corrode  faster  than  the  surrounding  surface  metal  because  the  Interruption 
of  flow  results  In  development  of  an  oxygen  concentration  cell.  In  those 
areas  where  fresh  water  meets  sea  water,  corrosion  of  steel  piles  are  likely. 

higher  oxygen  content  of  the  fresh  water  causes  current  to  flow  from  the 
salt  water  area  to  the  fresh  water  area  producing  anodic  conditions  In  the 
salt  water  and  subsequent  corrosion  of  steel  pilings  In  the  salt  water  area. 

Stray  electrical  current  corrosion  Is  an  electrochemical  process  simi¬ 
lar  to  galvanic  and  differential  environment  corrosion.  It  Is  the  result  of 
stray  electric  currents  from  electric  railways,  railway  signal  signs,  cathodic 
protection  systems  for  pipelines  or  foundation  pilings,  DC  industrial  genera¬ 
tors,  or  DC  welding  equipment.  Since  metals  are  more  conductive  than  water 
or  aoll,  atrey  currents  tend  to  collect  In  the  metal,  following  the  path  of 
least  resistance.  Corrosion  occurs  when  the  current  leaves  the  metal  produc¬ 
ing  atrey  current  electrolysis  at  the  point  where  the  current  exlta  the  metal, 
dhlle  etray  alternating  currents  are  generally  not  harmful  to  underground  or 
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undervatcr  structure*,  the  current  can  be  rectified  by  passing  through  or 
off  metal  atructurea.  The  partial  DC  component  la  then  capable  of  producing 
current  electrolysis t  as  discussed  earlier.  The  sources  of  alternating  cur¬ 
rent  Include  central  power  stations  and  large  substations. 

Bacteriological  corrosion  is  caused  by  two  types  of  micro-organisms, 
anaerobic  and  aerobic.  Of  the  two  types,  the  anaerobic  is  the  most  responsi¬ 
ble  for  the  corrosion  of  steel.  This  corrosion  results  fron  the  creation  of 
concentration  cells  on  the  surface  of  the  netal,  the  creetlon  of  a  corrosive 
environment  through  wster  and  decomposition,  and  depolarisation  of  cathodic 
or  anodic  areas.  Corrosion  due  to  this  particulsr  type  of  organisms  may  be 
found  In  bogs,  heavy  clay,  awamps,  stagnant  waters,  and  contaminated  waters, 
particularly  when  contaminated  with  the  waste  from  paper-making  operations. 

The  external  corrosion  products  are  black  underlain  with  a  thin  film  of  white 
substance. 

Stress  corrosion  requires  high  stress  in  most  Instances  although  thlB 
may  vary  with  the  environment.  The  stress  may  be  residual  stress  from  cold 
working,  or  may  be  due  to  applied  loads  or  welding  operations.  Tensile  forces 
expose  metal  at  the  grain  boundaries  resulting  In  small  Intergranular  crack6. 
As  the  corrosion  continues  along  the  grain  boundaries,  the  combination  of 
stress  and  continued  corrosion  results  In  transgranular  cracking. 

Fretting  corrosion  occurs  on  closely  fitted  atetal  parts  which  are  under 
vibration  such  as  a  sleeve  on  a  shaft,  ahrunk  metal  fittings,  or  forced  metal 
fittings.  The  contact  surfaces  may  become  pitted  and  a  deposit,  usually  red 
In  color,  may  form  at  the  interface.  The  corrosion  damage  affects  operating 
tolerances  and  increases  the  possibility  of  failure. 

Impingement  corrosion  affects  brass  and  hard  drawn  copper  and  is,  there¬ 
fore,  of  little  concern  when  dealing  with  maritime  Installations. 
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Chemical  corrosion  rasul'  from  the  direct  attack  on  ataal  by  acids  or 
diluted  acids.  Chlorine,  carbon  dioxide,  and  sulfur  oxide  are  atmospheric 
con t eminent »  which  nay  cause  the  formation  of  acid  films  on  metal  surfaces 
resulting  In  rapid  corrosion.  Chlorine  Is  more  commonly  found  In  the  marine 
environment  while  carbon  dioxide  and  sulfur  oxide  are  coason  Industrial  con¬ 
taminants. 

The  rate  of  all  of  these  corrosion  reactions  is  directly  affected  by 
the  concentration  of  dissolved  oxygen  In  the  water,  the  concentration  of  cor¬ 
rosion  products  In  the  water,  and  environmental  factors  which  may  affect  the 
condition  of  the  electrolyte  such  as  tempersture,  salinity,  etc.  The  most 
rapid  corrosion  occurs  In  the  tidal  fluctuation  zone  where  dissolved  oxygen 
Is  plentiful  and  the  moving  water  body  prevents  saturation  of  the  water  sur¬ 
rounding  the  metal  with  corrosion  products  or  the  deposition  of  corrosion 
products  on  the  surface  of  the  metal. 

In  many  instances  the  failure  of  a  steel  structure  In  sea  water  could 
be  prevented  by  thorough  design  investigations  and  considerations.  These 
considerations  should  include  the  selection  of  materials  to  suit  the  environ¬ 
ment,  the  minimum  galvanic  potential  between  two  metals,  the  relative  areas 
of  dissimilar  metals  which  are  to  be  Joined,  the  resistivity  of  the  soil  and 
water  surrounding  the  metals,  the  possibility  of  applying  Insulating  coatings, 
and  the  prevention  of  water  accumulations  where  feasible.  These  design  cri¬ 
terion  may  reveal  the  need  for  external  coatings  applied  to  the  surface  of 
the  steel  members. 

Coatings  may  take  many  forms:  metallic  coverings  end  claddings,  organic 
coatings  and  wrappings,  synthetic  organic  materials,  and  concrete  casings. 
Metallic  coverings  and  claddings  protect  the  base  metal  In  two  ways  depending 
upon  the  position  of  the  applied  metal  in  the  electromotive  force  series. 

If  the  applied  metal  Is  more  corrosion  resistant  than  the  base  metal,  the 
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applied  coating  is  referred  to  ss  sacrificial  and  will  corrode  to  provide 
protection  for  the  base  metal.  Sacrificial  coatings  consist  of  sine  or  alum- 
lnua.  Organic  coatings  and  wrappings  resist  moisture  absorption  and  Isolate 
the  aetal  structure  over  long  periods  of  tine  from  the  forces  of  electricity. 
Soae  of  the  common  organic  materials  used  as  coatings  and  wrappings  Include 
asphalt,  coal  tar,  paints,  plastic  wrappings,  and  greases.  Of  interest  In 
recent  years  has  been  the  effect  of  oil  spills  on  the  corrosion  resistance 
on  metal  structures.  Oil  films  which  develop  on  the  structures  provide  ex¬ 
cellent  protection  from  corrosion  by  isolating  the  atructure  from  air  and 
water.  This  method  of  protection  tends  to  be  too  costly  to  be  used  as  a 
systematic  corrosion  preventative.  Synthetic  organic  materials  have  been 
widely  used  for  electrical  insulation  and  Isolation.  Plastics  are  also  used 
in  the  protection  of  pipelines  from  underground  corrosion  and  at  the  joining 
points  of  dissimilar  metals  to  prevent  current  flow.  Concrete  caslng6  are 
the  last  area  of  external  applied  protection.  The  characteristics  of  the 
concrete  necessary  to  Insure  adequate  protection  Is  discussed  In  the  section 
of  thl6  chapter  dealing  with  concrete  corrosion.  The  concrete  may  take  the 
form  of  shotcret  or  gunite  but  must  have  a  minimum  depth  of  cover  of  three 
Inches.  External  coatings  tend  to  deteriorate  with  age  resulting  In  checking, 
flaking,  scaling,  chalking,  washing,  blistering,  peeling,  cracking,  or  spalllr^ 
They  may,  however,  be  the  most  economically  feasible  method  of  protection  for 
a  particular  structure. 

Cathodic  protection  refers  to  the  protection  of  steel  or  other  metals 
through  electrolysis  by  stray  electric  currents.  There  are  two  methods  of 
cathodic  protection,  eacrlficial  and  impressed  current;  each  uses  e  base  metal 
which  Is  corroded  Instead  of  the  steel  In  the  structure.  In  the  sacrificial 
system  the  metal  to  be  protected  Is  wired  to  a  more  negative  metal  and  both 
are  pieced  In  an  electrolyte,  either  soil  or  water.  Current  flows  from  the 
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anode  to  the  cathode,  from  the  more  negative  natal  to  the  lees  negative  aetal 
resulting  In  the  corrosion  of  ths  anode  and  protection  of  the  cathode.  Mag¬ 
nesium  and  tine  are  commonly  used  In  the  sacrificial  system.  The  Impressed 
current  systen  requires  an  external  power  source  and  anodes  consisting  of 
any  conducting  aaterial  suitable  for  the  purpose.  Current  flows  frou  the 
anode  connection  to  the  power  supply  to  the  cathode  which  Is  a  relative  ground. 
The  variable  power  source  provides  a  wide  range  of  voltage  and  current  possi¬ 
bilities  although  the  entire  system  is  subject  to  failure  due  to  power  fail¬ 
ures.  The  required  aaintenance  and  inspection  of  the  lapressed  system  Is  fa r 
greater  than  that  required  by  the  sacrificial  system.  The  sacrificial  system 
is  relatively  simple  to  Install  and  maintain.  Additional  anodes  can  be  added 
without  revamping  the  design  for  the  entire  system.  Both  systems  are  effec¬ 
tive  In  protecting  those  portions  of  the  structure  which  are  constantly  Im¬ 
mersed  in  water  or  Imbedded  in  the  ground.  Neither  system  is  effective  in 
the  splash  sone,  the  area  of  greatest  corrosion,  or  above  weter  or  ground 
level. 

To  Insure  the  greatest  protection  In  the  splash  sone,  heavy  concrete 
casings  and/or  corrosion  resistant  metal  shielding  are  recommended.  Further 
research  into  effective  corrosion  prevention  methods  should  pay  special  at¬ 
tention  to  splash  sone  protection  and  feasibility  of  application  In  areas 
where  little  aaintenance  Is  likely  to  be  performed. 

Good  aaintenance  of  the  structure  can  make  or  break  any  protection  sys¬ 
tem  yet  devised.  The  controlling  variables  in  atmospheric  corrosion  are  the 
length  of  time  that  the  metal  Is  wet;  the  amount  of  foreign  matter  In  the  at¬ 
mosphere,  particularly  chlorine,  sulfur,  and  carbon  dioxide  which  form  acid 
films;  and  the  composition  of  the  metal.  Proper  maintenance  can  do  little 
as  far  as  controlling  the  composition  rf  the  metal  or  the  foreign  matter  In 
the  atmosphere,  but  It  can  affect  the  length  of  time  that  the  structural 


■ember*  arc  wet.  Structure!  ■ember*  can  be  kept  free  of  dirt  and  debrie  which 
retain  rain  and  waeh  water  a*  well  a*  the  deicing  aalte  which  say  be  present, 
and  aay  even  absorb  aoisure  and  corrosive  particles  from  the  stmosphere.  The 
water  and  salts  absorbed  by  the  dirt  and  debris  is  held  in  contact  with  the 
■etal  for  long  periods  of  time  resulting  in  accelerated  corrosion. 

Deterioration  of  a  steel  structure  aay  result  from  processes  other  than 
corrosion  although  for  fender  systems  corrosion  is  of  primary  significance. 
Fatigue  cracking  may  occur  at  connections  and  points  on  the  structure  where 
a  discontinuity  or  restraint  is  introduced;  at  loose  connections  or  members 
which  could  force  a  member  to  carry  unequal  or  excessive  stress;  at  damaged 
■embers,  regardless  of  sugnltude,  which  are  misaligned,  bent  or  torn;  at  sites 
where  corrosion  could  reduce  load  carrying  capacity  through  decrease  in  the 
■ember  section  making  it  less  resistant  to  both  repetitive  and  atatlc  stress 
conditions;  at  weld  points  where  crack  initiation  might  begin;  at  sites  of 
part  repair  and  areas  of  excessive  vibration  or  unusual  twisting;  and  at 
places  where  structural  details  are  known  to  have  exhibited  fatigue  problems. 
The  effect  of  high  temperatures  on  steel  strength  becomes  of  importance  when 
considering  the  possibility  of  fire  on  a  dock  or  pier  structure.  During  reg¬ 
ular  operating  conditions,  the  temperatures  remain  within  the  realm  of  elastic 
design  and  poBe  no  unusual  design  problems.  Careful  inspection  of  the  struc¬ 
ture  can  generally  reveal  areas  of  fatigue  cracking  or  plastic  failure  due 
to  high  temperatures. 

CONCRETE 

The  use  of  concrete  in  marine  structures  has  increased  in  recent  years 
as  the  sice  of  berthing  vessels  has  increased.  Concrete  has  high  compressive 
strength  but  low  shear  and  tensile  strength.  It  is  porous,  extensible,  and 
fire  resistant,  but  can  be  damaged  by  intense  heat.  Under  ordinary  loading 


conditions,  concrete  is  elastic  though  it  will  creep  under  sustelned,  heavy 
loads.  The  sheer  and  tensile  strength  of  concrete  can  be  Increased  by  the 
addition  of  reinforcing  bars  or  by  prestressing  with  steel  vires  which  are 
under  tension.  This  factor  allows  Much  design  flexibility  yet  deterloretlon 
of  concrete  In  the  marine  environment  can  pose  significant  problems. 

The  factors  which  cause  deterioration  nay  be  grouped  under  the  follow- 
ing  areas:  poor  design  details,  construction  deficiencies  and  operations, 
teaperature  variations,  chemical  attack,  reactive  aggregates  end  high  alkali 
cement,  moisture  absorption,  wear  or  abrasion,  shrinkage  and  flexure  forces, 
collision  damage,  scouring,  shock  waves,  overstress,  fire  damage,  foundation 
movement,  and  corrosion  of  reinforcing  bars  and  prestressing  wires.  The  vis¬ 
ual  symptoms  of  deterioration  consist  of  cracking,  scaling,  spalling,  rust 
stains,  surface  disintegration,  efflorescence  and  exudation,  and  vehicular 
damage.  Each  shall  be  examined  with  the  form  of  deterioration  most  responsi¬ 
ble  for  that  form  of  disintegration. 

Poor  design  details  which  can  cause  concrete  to  crack  Include  Insuffi¬ 
cient  drainage.  Scuppers  may  not  be  provided  or  improperly  provided  with 
downspouts  to  keep  the  water  discharge  away  from  concrete  surfaces  Including 
caps  and  decks.  The  scuppers  may  be  too  small  and,  as  a  result,  easily  clogged. 
They  should  be  provided  at  all  low  spots.  Weep  boles.  If  provided,  may  be  too 
small,  too  few,  or  discharging  over  another  concrete  surface.  When  not  enough 
space  Is  provided  at  an  expansion  joint,  spalling  may  result  (Fig.  35).  In¬ 
sufficient  cover  over  rebars  may  cause  corrosion  of  the  rebars,  or.  In  the 
case  of  prestressed  concrete,  the  prestressing  vires.  Of  all  of  these  consid¬ 
erations,  the  need  for  sufficient  expansion  space  cannot  be  overstated. 

Construction  deficiencies  may  result  In  concrete  deterioration  regardless 
of  the  care  taken  In  the  design  procedure.  Soft  spots  In  the  subgrade  of  a 
foundation  will  cause  settlement  resulting  in  erseking  (Fig.  36).  If  forworks 
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are  removed  between  the  time  the  concrete  begins  to  harden  and  the  specified 
time  for  formwork  removal,  cracks  will  probably  occur.  These  cracks  are  es¬ 
pecially  dangerous  since  they  may  occur  internally  with  no  external  manifest¬ 
ations.  Water  can  collect  in  these  cracks  and  cause  spalling  due  to  freezing 
and  thawing  or  cause  corrosion  of  any  internal  steel  which  may  eventually  lead 
to  cracking  and  spalling.  If  sufficient  spacing  does  not  exist  between  rebars 
in  reinforced  sections,  voids  may  develop  if  the  mix  is  not  properly  vibrated. 
These  voids  collect  water  with  end  results  similar  to  those  discussed  earlier 
for  cracks  which  collect  water.  Excess  vibration  may  cause  segregation  of 
the  concrete  mix,  resulting  in  a  weaker  concrete  than  specified.  The  inclusion 
of  clay  or  soft  shale  particles  in  the  concrete  mix  will  cause  small  holes  to 
appear  in  the  surface  of  the  concrete  as  these  particles  dissolve.  These 
tiny  holes  increase  the  porosity  of  the  concrete  and,  as  before,  lead  to 
cracking  and  spalling  and  possible  corrosion  of  the  internal  steel  (Fig.  37). 

Freezing  and  thawing  (temperature  variation)  is  a  comnon  cause  of  concrete 
deterioration.  Porous  concrete  absorbs  water  which  expands  as  a  result  of 
freezing.  The  internal  expansive  pressures  developed  in  this  manner  often  pro¬ 
duce  cracking  (Fig.  38),  spalling  (Fig.  39),  or  scaling.  Scaling  appears  as 
a  chalky  matrix  typically  white.  Temperature  fluctuations  may  further  affect 
concrete  integrity  if  the  coefficient  of  thermal  expansion  differs  signifi¬ 
cantly  from  that  of  the  mortar.  Aggregates  with  lower  coefficients  may  cause 
high  tensile  stresses  resulting  in  cracking  and  spalling.  Further  problems 
arise  if  the  concrete  section  is  restrained  from  expansion  or  contraction. 

The  internal  forces  set  up  under  these  circumstances  are  sufficient  to  result 
in  cracking  and  spalling  and  eventual  failure  of  the  member. 

Chemical  attack  of  concrete  may  come  from  two  sources.  The  use  of  salt 
or  chemical  deicing  agents  contributes  to  weathering  through  recrystalization, 
and  salt  may  increase  the  water  retention.  The  results  are  similar  to  the 
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FIG.  37:  Surface  Pitting  Due  to  Included  Clay 
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effects  of  freezing  and  thawing:  cracking  and  spalling.  Further  chemcial 
attack  may  come  from  chemicals  in  the  soil  or  water  surrounding  the  concrete 
■embers.  Ammonium  and  magnesium  ions  react  with  the  calcium  in  the  cement 
paste.  Sodium,  magnesium  and  calcium  sulfates  react  with  the  tricalcium 
aluminate  in  the  cement  paste.  Acids  will  attack  the  cement  paste  by  chem¬ 
ically  transforming  the  composition  of  the  paste.  The  results  of  general 
chemical  attack  appear  as  surface  disintegration  in  the  form  of  scaling  and 
spalling,  random  cracking  in  unrestrained  members,  swelling  and  parallel 
cracks  in  compression  members,  and  protruding  aggregate  resulting  from  the 
removal  of  cement  paste. 

Reactive  aggregates  and  high  alkali  cements  cause  swelling,  map  cracking 
(Fig.  40),  and  popouts  (Fig.  41). 

Moisture  absorption  will  cause  concrete  to  swell.  Concrete  cylinders, 
thirteen  feet  in  diameter,  have  grown  as  much  as  six  inches  in  a  marine  en¬ 
vironment.  If  restrained,  the  restraining  material  will  break  apart  or  the 
concrete  will  crack  and  spall.  In  addition,  soft  water  will  tend  to  leach 
out  the  lime  in  the  cement  and  leave  a  powdery  residue. 

Wear  and  abrasion  cause  the  surface  of  concrete  to  disintegrate  over 
extended  periods.  Wind  and  water-driven  particles,  particularly  sand,  play 
a  significant  role  in  abrasion  near  the  mud  line  and  above  the  high  water 
line.  Piles  may  be  damaged  due  to  the  rubbing  action  of  vessels  resulting 
in  scaling,  revelling,  and  cracking  at  joints,  and  scarring. 

Shrinking  and  flexure  forces,  common  design  considerations  in  concrete 
piles,  may  set  up  tensile  stresses  exceeding  the  capacity  of  the  section. 

The  end  result  is  cracking.  Setting  shrinkage  generally  causes  shallow  sur¬ 
face  cracking  (Fig.  42).  Drying  shrinkage  may  take  piece  over  extended 
period  of  time  producing  tensile  forces  and  eventually  cracking.  The  time 
frame  may  amount  to  several  years. 


FIG.  40:  Hap  Cracking 
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■Collision  damage  Is  generally  considered  Co  be  an  accidental  occurence. 
Any  concrete  structure  which  can  be  reached  by  a  moving  vehicle  has  Buffered 
collision  damage  at  some  time.  In  most  Instances  the  vehicle  Is  more  severe¬ 
ly  damaged  than  the  structure.  After  accidental  collisions  the  structure 
should  be  Inspected  for  possible  damage. 

Concrete  surfaces  in  surf  tones  are  scarred  by  sand  and  silt  (Fig.  43). 
Ice  flows  In  rivers  and  bays  are  also  responsible  for  considerable  damage  to 
concrete  pilings  and  piers  (Fig.  44).  Most  damage  of  this  type  occurs  between 
the  low  and  high  water  marks. 

A  shock  wave  can  damage  concrete  due  to  the  varying  transmission  rates 
through  the  aggregate,  the  paste  and  the  reinforcing  steel.  The  6hock  waves 
then  become  partially  additive  setting  up  conditions  leading  to  cracking  and 
spalling  of  the  concrete  mass.  Concrete  piles  are  vulnerable  to  damage  from 
shock  waves  while  they  are  being  driven. 

Overstressed  concrete  may  exhibit  longitudinal  and  lateral  cracking  in 
a  deck.  Over  a  bearing  point  there  may  be  diagonal  cracking  at  the  end  of 
a  simple  beam  (Fig.  45),  vertical  cracking  running  from  the  bottom  at  the 
center  of  a  simple  beam  to  the  neutral  axis,  and  vertical  cracking  from  the 
top  of  the  beam  extending  downward  to  the  neutral  axis  for  a  beam  which  is 
continuous  over  the  bearing  area  (Fig.  46). 

Fire  damage  results  from  the  extreme  temperatures  of  a  large  fire.  Tem¬ 
peratures  above  300“  C.  will  cause  a  weakening  in  the  cement  paste  and  lead 
to  cracking  and  spalling  (Fig.  47). 

Foundation  movements  will  cause  serious  cracking  in  concrete  structures 
if  they  generate  a  sizeable  tensile  stress  in  the  concrete  piers  or  abutments. 
Vertical  cracking  predominates. 

Corrosion  of  the  internal  reinforcing  steel  causes  tremendous  expansion 
pressures  in  the  concrete.  Fully  corroded  steel  occupies  seven  times  the 


74 


Removal  of  Concrete  Matrix  from  Reinforcing  Rods  Due  to  Ice  Flow 


AD-AQ99  790  MARYLAND  UNIV  COLLEGE  PARK  DEPT  OF  CIVIL  ENGINEERING  F/G  13/13 

THE  STATE  OF  THE  ART.  BRIDGE  PROTECTIVE  SYSTEMS  AND  DEVICES, (U) 

OCT  78  K  N  DERUCHER,  C  P  HEINS,  R  T  MANCILL  D0T-C6-71955-A 
UNCLASSIFIED  2Q0-79-Q1-A  USCG-N-1-80  • NL 


MICROCOPY  RESOLUTION  TEST  CHAR] 

NATIONAL  BURtAU  Of  STANDARDS  |%  ‘  A 


volume  of  uncorroded  eceel,  therefore,  cracking  and  spelling  result  from  ttu 
volume  Increase  (Fig.  48).  Corrosion  of  the  steel  may  also  result  If  water 
finds  Its  way  Into  the  concrete  member. 

Corrosion  of  the  prestresslng  wire  combined  with  the  high  tensile  atrei 
required  for  prestressing  may  result  In  failure  of  the  member  due  to  stress- 
corrosion.  Failure  of  a  significant  number  of  prestressing  wires  In  this 
manner  will  result  In  loss  of  tensile  strength  In  the  member  and  could  lead 
to  failure  under  heavy  loading  conditions.  Further  deterioration  of  the  Let 
slle  strength  of  a  member  may  result  from  creep  of  the  prestresslng  steel, 
shrinkage  of  the  concrete  causing  a  relaxation  In  the  prestresslng  wires  anc 
creep  of  the  concrete , shortening  the  overall  length  of  the  member  and  there! 
relaxing  the  prestressing  vires.  Other  causes  for  a  loss  of  prestress  incli 
elastic  deformation  of  the  concrete,  drawing  in  of  the  anchorages,  and  fric¬ 
tion  loss  in  the  post-tensioning  operations.  The  combined  loss  of  prestresi 
due  to  such  causes  can  amount  to  as  much  as  25  percent  to  35  percent  of  the 
member's  design  strength.  The  result  of  loss  of  prestress  is  cracking  par¬ 
ticularly  near  the  anchorages  and  on  the  compression  face.  Unlike  cracks 
in  high  tension  areas  of  reinforced  concrete  members,  the  appearance  of  cra< 
in  a  prestressed  member  may  have  serious  effects  on  its  structural  integrity 
A  prestressed  member  is  usually  under  high  compressive  stresses,  consequent! 
cracking  should  not  be  expected. 

With  proper  design  mixtures,  it  is  possible  to  produce  concrete  with  s< 
vice  life  of  fifty  years  in  a  marine  environment.  The  concrete  should  be 
dense  with  an  impervious  surface  and  relatively  nonabsorbent  characteristic! 
All  internal  steel  should  be  covered  to  a  depth  of  at  least  three  inches  of 
good  concrete.  The  cement  content  should  range  between  a  minimum  of  6-1/2 
sacks  per  cubic  yard  and  a  maximum  of  7-1/2  per  cubic  yard.  The  aggregates 
should  be  graded  for  maximum  density  and  nonreactlve.  If  nonreactlve  aggre 
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art  not  available,  then  potzolani  must  be  added  to  the  aggregates  or  a  low- 
alkali  cement  aust  be  uaed.  The  water  content  ahould  be  auch  aa  to  provide 
a  workable,  plaatlc  a lx  with  the  loweat  water-ceaent  ratio  poaalble,  not  to 
axceed  a lx  gallona  per  aack  of  eeaent.  Type  V  eeaent  with  five  percent  max- 
iaum  tricalcium  eliminate  ahould  be  uaed  although  Type  II  aay  be  eubetltuted 
under  tight  econoalc  condltlone.  Three  to  six  percent,  entrained  air  la  us¬ 
ually  apeclfied  for  aggregate  else  rangea  from  1-1/2  to  3  inches.  Thorough 
curing  by  the  beat  aeans  poaalble  and  adequate  vibration  la  neceaaary  to  in- 
aure  the  concrete  reaches  its  design  strength.  Particular  care  should  be 
taken  when  handling  precast  members.  Support  is  neceaaary  along  the  entire 
length  of  reinforced  members  due  to  low  bending  strength.  Prestressed  mem¬ 
bers  are  leas  susceptible  to  handling  stresses  .than  ordinary  reinforced  mem¬ 
bers  but  ahould  be  treated  with  some  degree  of  reasonable  care. 

Other  forma  of  concrete  used  in  the  marine  environment  Include  asphalt 
Impregnated  concrete.  The  outer  shell  of  the  concrete  is  Impregnated  to  a 
depth  of  about  one  inch  to  three  inches  or  more.  The  method  of  application 
resembles  that  for  creosotlng  wood.  The  concrete  is  pieced  in  a  bath  of 
molten  asphalt  admitted  under  high  vacuum  after  being  pre-drled  at  tempera¬ 
tures  up  to  230*  F.  The  member  is  then  subjected  to  air  pressures  up  to  150 
psl.  The  asphalt  is  then  removed  and  the  concrete  is  exposed  for  several 
hours  to  pressures  of  100  psl.  It  is  then  removed  to  a  cooling  chamber. 
During  the  entire  process  the  temperature  grsdlent  is  closely  watched.  As¬ 
phalt  impregnated  beams  and  cylinders  have  been  found  to  be  dry  after  storage 
in  the  ocean  at  an  elevation  of  -35  feet  for  35  years.  This  type  of  pile  has 
been  used  in  the  Los  Angeles  harbor  since  1925  with  no  symptoms  of  deteriora¬ 
tion  to  date. 

Shotcrete,  also  known  as  gunlte  or  sprsycrete,  is  another  form  of  con¬ 
creting  which  has  been  used  with  success  in  ths  marine  environment.  It  is 
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usually  proportioned  by  volume  la  tbs  ratio  of  ooa  part  cameo 
veil  graded  sand  although  richer  mixtures  have  been  used.  The  richer  mixtures 
have  aa  lacraased  tendency  to  cracking  as  a  result  of  temperature  variations 
and  alternate  wetting  aad  drying.  Twenty-eight  day  compressive  strengths  of 
4000  psl  are  possible  with  the  leaner  mixtures,  well  within  the  requirements 
of  most  design  structures.  The  use  of  shotcrete  Instead  of  conventionally 
placed  concrete  can  result  la  savings  of  material  and  time,  as  well  as  pro¬ 
viding  a  more  uniform  aad  dependable  member  If  the  field  control  of  the  con¬ 
ventional  formwork  pour lag  la  llmltsd  or  Inadequate.  It  has  very  good  bend¬ 
ing  characteristics  with  older  concrete  and  Is,  therefore,  used  for  patching 
and  plugging  of  axlstlng  structures.  The  critical  parameter  In  the  success 
of  a  shotcreted  member  Is  the  skill  of  the  craftsman  applying  the  shotcrete. 
The  angle  of  the  nossle,  the  rate  of  application,  the  amount  of  pressure  on 
the  line,  the  distance  of  the  aossle  from  the  member,  all  are  critical  to 
the  success  of  the  structure.  The  final  design  decision  to  use  conventionally 
placed  concrete  or  shotcrete  can  be  made  on  the  basis  of  economy  since  the 
deterioration  rates  are  quits  similar.  Ons  disadvantage  of  the  shotcrete 
method  Is  that  It  esnnot  be  used  to  produce  a  massive  member. 


CHAPTER  IV 


DESICN  PARAMETERS 

The  function  of  bridge  tendering  systems  ie  to  protect  bridge  elwents 
egalnst  damage  from  waterborne  traffic.  There  ere  many  factors  to  be  con¬ 
sidered  in  the  design  of  fendering  systems  including  the  size,  contours, 
speed,  and  direction  of  approach  of  the  ships  using  the  facility,  the  wind 
and  tidal  current  conditions  expected  during  the  ship's  maneuvers  end  while 
tied  up  to  the  berth,  and  the  rigidity  and  energy  absorbing  characteristics 
of  the  fendering  system  and  ship.  The  final  design  selected  for  the  fender 
system  will  generally  evolve  after  making  arbitrary  limitations  to  the  values 
of  some  of  these  factors  and  after  reviewing  the  relative  costs  of  initial 
construction  of  the  tendering  system  versus  the  cost  of  fender  maintenance 
and  ship  repair.  It  will  be  necessary  to  decide  upon  the  most  severe  dock¬ 
ing  or  approach  conditions  to  protect  agglnst  and  design  accordingly;  hence, 
any  situation  which  imposes  conditions  more  critical  than  the  established 
maximum  would  be  considered  in  the  realm  of  accidents  and  probably  result  in 
damage  to  the  dock,  tendering  system,  or  ship. 

The  kinetic  impact  energy  may  be  simply  expressed  as; 

E  -  mv2  (1) 

where  E  is  the  energy  of  the  system  of  mass,  m,  moving  at  a  velocity,  v. 

Each  of  these  variables  involves  a  complicated  set  of  interrelationships 
bearing  directly  on  the  design  of  an  adequate  tendering  system. 

The  total  energy,  E,  may  be  expressed  as  the  sum  of  many  component 
energies:  the  energy  absorbed  by  the  fender  and  dock  structure.  Eg, 
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the  energy  absorbed  by  the  ship,  and  ELoat>  the  energy  lost  due  to  friction 
with  the  harbor  bo t ton,  friction  in  the  fender-dock  eysten,  etc.  While  the 
energy  lost  in  unexpected  fora*  nay  cause  problens  requiring  dredging  end 
other  physical  nod  if icatlona,  it  cannot  be  accurately  evaluated  due  to  its 
random  nature. 

Energy  absorption  in  the  ship  nay  occur  in  two  basic  ways:  by  deforma¬ 
tion  of  the  bull,  E.,  or  by  rebound  of  the  ship,  E  .  For  the  purposes  of 
simplification,  deformation  will  be  assumed  to  occur  in  the  elastic  regime. 
The  energy  of  the  ship  can,  therefore,  be  expressed  as; 

E.  "  h  *  <*> 

Ea  is  the  function  of  the  radius  of  gyration  of  the  vessel,  the  vessel  geome¬ 
try,  sea  conditions,  and  the  velocity  and  deceleration  of  the  vessel  immed¬ 
iately  prior  to  impact.  Accurate  analytical  determination  of  is  impossi¬ 
ble.  It  is,  therefore,  necessary  to  evaluate  the  importance  of  this  energy 
to  the  system,  and,  if  possible,  justify  its  elimination  from  consideration. 

The  transfer  of  energy  to  the  fender  at  the  moment  of  impact  results  in 
deflection  of  the  fender.  At  acme  small  increment  of  time  immediately  after 
this,  some  energy  is  transferred  back  to  the  vessel  in  the  fora  of  the  energy 
of  rebound.  The  rebound  energy  is  a  function  of  the  stiffness  of  the  fender 
which  determines  the  characteristics  of  the  collision  as  well  as  the  deflec¬ 
tion  of  the  fender  under  various  loading  conditions.  The  result  of  this  re¬ 
bound  is  translation  and  rotation  of  the  vessel  in  three  dimensions  causing 
pitch,  yaw,  and  roll.  Maximum  rebound  energy  requires  the  collision  to  be 
completely  elastic  resulting  in  no  energy  absorption  by  the  fender.  If  this 
were  the  case,  severe  damage  might  be  incurred  by  the  vessel  due  to  the  lim¬ 
ited  stress-strain  clmractaristlcs  of  any  finite  material  element.  Minimum 
rebound  energy  would  occur  for  a  totally  inelastic  collision  where  all  energy 
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is  absorbed  by  ths  fenderlng  system.  A  systms  designed  for  sin  Is  us  energy 
esse  with  s  finite  deflection  range  would  tend  to  be  stiff  resulting  in  pos¬ 
sible  damage  to  the  vessel.  Between  these  two  ex treses  lie  the  actual  case. 
Conservative  design  measures  call  for  no  rebound  by  the  ship  or  an  assump- 
tlon  of  the  ratio  of  the  rebound  energy  to  the  hull  deformation  energy.  If 
®Lo,t  ls  to  be  negligible!  the  total  energy  equation  reduces  to; 


E  “  Ed  +  Ef-d 


(3) 


The  impact  energy  is  a  tine  related  function  of  Impulse.  The  effects 
of  impact  on  a  ship  hull  nay  be  divided  into  three  tine  increments  end  exam¬ 
ined  separately.  During  the  period  of  localized  effect,  between  0  and  1/200 
second,  stress  and  deformation  characteristics  are  determined  by  the  dynamic 
elasticity  of  plate  panels,  frames,  stringers,  girdles,  etc.  The  resulting 
three  dimensional  equations  can  be  solved  only  for  very  simplified,  idealized 
structures  with  results  of  questionable  value  for  the  actual  physical  situa¬ 
tion.  During  the  transition  period,  from  1/200  to  1/20  second,  a  stress-de¬ 
formation  wave  travels  through  the  ship.  After  1/20  second  a  vibratory  motion 
is  established.  Damping  of  these  oscillations  results  from  Internal  friction 
in  the  steel  hull,  fluid  friction  in  the  boundary  layer  adjacent  to  the  ship, 
wave  or  ripple  formation  on  the  ocean  surface,  and  friction  and  slip  in  the 
lab  and  butt-riveted  joints  of  the  hull.  These  factors  have  been  evaluated 
both  experimentally  and  analytically  assuming  a  simple  beam  structure.  Exper¬ 
imental  results  yield  decrsental  damping  time  functions  three  to  ten  times 
those  obtained  by  simple  beam  assumptions. 

Research  into  the  area  of  the  impact  response  is  needed  to  shed  light  on 
the  complex  behavior  of  the  ship.  Several  expressions  which  could  be  used  to 
develop  scale  models  for  research  Include  equations  for  velocity  of  the  shear- 
bending  wave  in  the  hull,  V  . ,  the  frequency,  w,  and  the  impact  load  (F(t): 
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where  V  ^  1*  the  velocity  of  the  ■ bear-bending  wave  in  the  hull,  C  ie  the 
•hear  Modulus  of  elasticity,  g  is  the  acceleration  of  gravity,  pR  is  the 
density  of  the  hull  Material; 

u  -  (5) 


where  w  is  the  frequency,  E  is  the  Modulus  of  elasticity,  I  is  the  Moment  of 
inertia  of  a  cross  section  about  the  neutral  axis,  g  is  the  acceleration  of 
gravity,  pH  is  the  density  of  the  hull  Material,  is  the  cross-sectional 
area  of  the  hull,  L  is  the  length  of  the  hull; 

P(t)  -  P£.dV3tLs  (6) 


where  P(t)  is  the  impact  load,  pf_d  is  the  equivalent  fender-dock  material 
density,  V  is  the  velocity  of  impact,  t  is  the  time  measured  as  t-0  at 
Impact,  is  the  length  of  the  hull  in  contact  with  the  fender. 

The  energy  absorbed  by  the  fender  is  a  function  of  the  stiffness  of 
the  fender  and  the  Impact  energy.  If  the  stiffness  of  the  fender  is  expressed 
by  the  value  k  and  the  deflection  by  d,  the  energy  absorbed  by  the  fender, 

ij,  is; 

Ef  -  kd2  (7) 

Complications  arise  from  the  fact  that  k  is  generally  not  a  constant  but  a 
function  of  deflection.  Appendix  I  contains  the  graphs  of  k  vs.  d  curves. 

The  Appendix  slso  contains  energy  tables  listing  energy  levels  as  a  function 
of  the  percent  deflection  based  on  the  initial  size  of  the  fenderlng  device. 
The  Appendix  is  grouped  by  companies  for  easy  reference.  The  data  used  to 
generate  the  curves  and  tables  was  taken  from  design  aids  published  by  the 
manufacturers. 

The  evaluation  of  the  energy  absorbed  by  the  dock  or  pier  structure 
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Introduce*  further  complexities  to  the  sys tan.  The  structural  components 
hsve  varying  stiffnesses,  deflection  limits,  geometric  shapes,  external 
operating  parameters,  etc.  As  the  sophistication  of  the  structure  increases, 
so  do  the  number  and  complexity  of  the  energy  equations.  Various  simplifying 
assumptions  have  been  proposed.  The  most  popular  to  date  consists  of  replacing 
the  structural  members  with  springs  and  rigid  plates  with  non-linear  functions 
Incorporated  in  the  spring  constant  expressions.  This  method  lends  Itself  to 
computerisation  and  allows  complete  analysis  of  the  entire  syston  once  a 
spring-rigid  plate  model  is  developed  and  spring  constants  are  determined. 

In  this  manner  the  energy  absorbed  by  the  structure  can  be  expressed  in  terms 
of  various  stiffnesses  and  deflections  dependent  upon  the  impact  energy  of 
the  vessel  and  the  fraction  of  the  energy  which  might  be  absorbed  by  the 
ship.  In  this  analysis  also,  the  difficulty  of  evaluating  the  proportion¬ 
ality  of  the  energy  absorption  of  the  ship  and  structure  again  becomes 
evident . 

The  need  to  determine  this  proportionality  has  led  to  the  use  of  many 
equations  of  the  form; 

Ef  -  C  x  E  (8) 

where  £f  is  the  energy  abosrbed  by  the  fender,  C  is  some  constant  which  re¬ 
flects  the  amount  of  energy  which  is  not  absorbed  by  the  ship  or  pier  struc¬ 
ture  and  must,  therefore,  be  absorbed  by  the  fender,  and  E  is  the  kinetic 
energy  of  impact.  The  constant,  C,  is  a  function  of  the  berthing  point  of 
the  ship,  the  geometry  of  the  ship,  the  hull  stiffness,  the  type  of  dock 
structure,  the  sea  exposure  conditions,  and  the  hydrodynamic  mass,  or  the 
added  mass  of  water  set  in  motion  by  the  ship. 

The  components  of  the  energy  constant,  C,  can  be  grouped  into  various 
coefficients;  an  eccentricity,  C£,  a  stiffness  coefficient,  C$,  e  configure- 
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tioa  coefficient,  Cg,  end  a  hydrodynamic  coefficient,  C^.  C  i*  ee  follows: 


C  •  C  C  C  C 
w  E  S  C 


(9) 


The  eccentricity  coefficient,  C£,  adjusts  the  la  pact  vector,  which  is 
generally  not  along  the  velocity  vector,  to  that  portion  which  is  normal  to 
the  pier.  The  rest  of  the  energy  is  utilized  as  rotational  energy.  If  the 
assuaptlon  is  made  that  the  geoaetrlc  center  of  the  veesel  is  also  the  cen¬ 
ter  of  gravity,  an  ecpreaslon  can  be  written  which  relatea  the  radius  of 
gyration  of  the  ahlp  about  the  vertical  axis  through  the  center  of  gravity, 
K,  with  the  distance  along  a  line  joining  the  center  of  gravity  and  the 
point  of  Impact,  r,  and  the  angle  between  r  and  the  velocity  vector,  t; 


Ce“ 


K2  ♦  r2  cos2* 
K2  +  r2 


(10) 


Figure  49  is  a  schematic  diagram  of  this  non-sliding  contact  of  the 
ship  and  the  fender,  r  is  the  line  joining  the  center  of  mass  with  the 
Impact  point;  V  is  the  velocity  vector;  4  is  the  angle  between  r  and  V  and 
C.G.  labels  the  center  of  geometry.  This  may  differ  from  the  center  of 
gravity  due  to  the  loading  condition  of  the  ship.  An  exact  calculation  of 
the  center  of  gravity  would  require  detailed  knowledge  of  the  loading  condi¬ 
tions  end  cargo  of  the  shipping  traffic,  as  well  as  extensive  knowledge  o' 
the  architecture  of  the  ship.  To  determine  the  center  of  geometry  a  plan 
view  of  a  representative  ship  is  required.  From  this  view  the  center  of 
gravity  can  be  located  end  the  analytical  solution  of  equation  10  is 
possible. 

An  approximate  solution  can  be  obtained  if  the  velocity  vector,  V,  is 
assumed  to  act  perpendicular  to  the  line  joining  the  center  of  gravity  and 
the  Impact  point:  *  -  90°.  Equation  10  then  becomes: 
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TIG.  49:  Schematic  Diagram  of  Ship  Contact 


,  ...  - 


JL 


CE" 


2  2 
K*  +  r 


(11) 


or 


C 


E 


1 

1  +  (r/K)2 


(12) 


Figure  50  is  generated  by  solving  equation  12  for  various  berthing  points 
measured  as  a  function  of  the  ship  length,  L,  as  illustrated  in  Figure  49. 
Commonly  used  values  are:  for  Impact  at  a  third  point  (1/3  the  length  of 

the  ship),  C  «  0.5,  and  for  impact  at  a  quarter  point  (1/4  the  length  of 

JD 

the  ship),  C£  -  0.7,  from  Figure  50. 

The  configuration  coefficient,  Cc,  is  a  function  of  the  supporting 
structure  and  is  generally  assumed  equal  to  1.0  for  an  open  pier,  0.9  for 

a  semi-closed  pier  and  0.8  for  a  closed  pier.  The  open  and  closed  configura¬ 

tions  are  illustrated  in  Figure  51. 

The  stiffness  coefficient,  Cg,  is  generally  assumed  to  be  0.9  as 
a  conservative  estimate  of  the  percentage  of  energy  which  the  fender  must 
absorb  based  solely  on  stiffness  relationships. 

The  hydrodynamic  mass  concept  attempts  to  account  for  the  added 
forces,  pressures,  and  impulses  that  arise  from  the  motion  of  a  ship  through 
some  body  of  water.  This  added  mass  of  water  is  considered  to  be  added  to 
the  mass  of  the  ship  and  said  to  govern  the  motion  of  the  ship.  This  type 
of  approach  has  been  used  to  account  for  those  factors  not  covered  by  the 
other  parameters.  The  effect  of  consideration  of  the  added  mass  depends  on 
many  factors:  waves,  vlnds,  nature  of  Impact,  character  of  the  structure, 
flow  of  water  around  the  ship  and  structure,  etc.  A  demonstration  of  the 
variability  of  this  factor  requires  only  a  brief  look  at  the  berthing  un- 
euvers  of  a  ship  approaching  the  dock  at  two  speeds.  In  the  first  case,  the 


91 


92 


Eccentricity  Coefficient  va.  Impact  Points 


L 


Sla  Closed  dock  structure  or 
pier  structure 


52b  Open  dock  structure  or 
pier  structure 


FIG.  51:  Open  end  Closed  Dock  and  Pier  Structures  for 

the  Determination  of  the  Configuration  Coefficient 
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approach  la  rapid  and  braking  of  tha  forward  action  occurs  suddenly.  The 
water  la  forced  to  flow  around  the  vessel  resulting  In  soae  forward  action 
and  iapact  force  due  to  the  mass  of  water.  In  the  second  case,  the  velocity 
is  low  and  braking  occurs  gradually.  The  mass  of  water  does  not  split  to 
flow  around  the  vessel  and  the  effects  of  the  novlng  water  body  are  almost 
negligible. 

Fast  design  techniques  have  described  this  added  water  aass,  My,  as 
a  cylinder  whose  diameter  is  the  draft  of  the  ship,  D,  and  whose  length  Is 
the  length  of  the  ship,  L. 

•  */4  D2Lpw  (13) 

where  Py  Is  the  density  of  the  water  and  stay  vary  with  geographic 
location.  The  hydrodynamic  coefficient  in  this  analysis  is  the  ratio  of 
the  added  water  aass  to  the  displaced  aass  of  the  ship,  Mg: 

cH  -  VMS  (14) 

The  ratio  of  My  to  Mg,  or  Cy,  has  been  correlated  to  the  ratio  of  the  beam 
of  the  ship,  B,  to  the  draft  of  the  ship,  D,  and  is  shown  in  Figure  52a. 

Other  design  methods  Involve  the  use  of  eaplrlcal  equations  relating 
C  to  B/D.  The  aost  comsonly  used  Is 

H 

Cy  -  1  +  2  D/B  (15) 

The  second  term  in  this  expression,  2D/B,  Is  shown  in  Figure  52b  and  Is 
labelled  to  2  D/B.  Adding  1.0  to  the  value  read  from  this  graph  gives  the 
Cu  value  for  design.  Another  suggested  equation  is 

Cy  -  0.3  +  1.8  D/B  (16) 

This  equation  Is  shown  In  Figure  52b  and  is  labeled  0.3  1.6  D/B. 

The  value  read  directly  from  this  graph  is  the  Cy  design  value. 

Figures  52a  and  52b  allow  quick  visual  determination  of  Cy  values  when 
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thMi  value*  arc  to  bo  Incorporated  la  design  consideration*.  All  of  these 
approach**  for  the  determination  of  Cg  arc  approx  la*  t  Iona  and  differ  froe 
■easuraents  using  seal*  nod  els  and  actual  bar  thing  maneuvers.  Model  etudles 
and  berth  it*  msneuvara  yield  coefficient  value*  ranging  froe  1.3  to  3.0. 

Values  presented  by  various  coepsnies  in  their  design  sids  rsnge  from 
1.5  to  1.9  as  coapsrsd  with  the  model-berthing  values  and  the  approximate 
values  from  equations  14,  15  or  16.  Further  research  into  this  area 
is  indicated  although  the  variability  of  the  impact  velocity  and  slowing 
rat*  nay  be  controlled  by  human  judgnent  and  experience. 

The  velocity  of  Impact  of  vessels  has  received  much  study  In  the  pest 
few  years.  It  is  affected  by  currents,  wind  acting  on  the  freeboard  area, 
boundary  layer  condition*,  and  pilot  experience.  It  appears  that  while  smooth 
curves  may  be  forced  through  data  points  relating  velocity  to  other  factors, 
the  single  largest  factor  governing  the  Impact  velocity  is  the  nautical 
judgment  of  the  pilot  durli«  berthing  or  passing  maneuvers.  While  eons 
authors  have  suggested  an  Inverse  relationship  between  else  and  speed, 
practical  experience  has  shown  that  reductions  in  the  design  velocity  based 
on  this  assumption  nay  result  in  overloading  the  designed  structure  during 
the  normal  rang*  of  operations.  The  following  values  have  been  suggested 
as  design  velocities  by  some  of  the  companies  surveyed.  The  velocities  are 
expressed  in  units  of  feet  per  second  (fps). 


Wind  and  Approach 
Swell  Conditions 


SHIF  DISPLACEMENT 
Up  to  Up  to 
3,000  tons  10,000  tons 


Over 

10,000  tons 


Strong 

Difficult 

2.5 

2.0 

Strong 

Favorable 

2.0 

1.5 

Moderate 

Difficult 

1.0 

0.8 

1.5 

1.0 

0.6 


Actual  coni  it ions  should  deteralna  what  value  is  used  for  design.  Future 


studies  of  the  impact  velocity  night  hinge  on  the  human  factors  involved 


as  well  as  quantifying  the  velocity  relationships. 
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The  energy  aquation  has  oftan  baan  presented  In  the  fora: 


Ef  -  1/2  E 

This  lndlcataa  that  tha  C  value  equals  1/2.  If  the  Individual  factors 
are  studied  under  coaion  conditions,  a  slightly  higher  general  value  of  C 
in  indicated. 

Case  1. 


C 


CE  CS  CC  S» 


(9) 


C£  *  0.38  ( lapse t  at  sixth  point) 
Cg  •  0.90  (General  stiffness) 

Cg  -  0.80  (Closed  pier  structure) 
Cfi  -  2.00  (B  -  2D) 


Case  2. 


C  -  0.46 


C‘CECSCCCB 


C£  »  0.50  ( lapse t  at  quarter  point) 
Cg  -  0.90  (General  stiffness) 

C£  ■  1.0  (Open  structure) 

CH  -  2.0  (B  -  2D) 


(9) 


C  -  0.90 

For  general  use  a  value  of  C  ■  0.68  is  recoaiendad.  This  value  is  the 
average  of  the  two  cases  illustrated  above  and  appears  aore  reasonable  for 
design  than  the  arbitrary  assuaptlon  of  C  *  0.50.  For  aost  cases,  however, 
evaluation  of  aach  coefficient  factor  is  recoaa ended . 

The  fira  of  Ewin,  Caapbell,  and  Gottlieb  of  Mobile.  Alabama  has 
provided  us  with  four  details  of  a  fender  study  they  did  for  the 
Alabaaa  State  Dock  Department  for  berth  numbers  3,  4,  S,  6,  7.  and  8, 

These  details  appear  on  the  next  page. 
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Various  Scheaes  for  Berth  Conditions 


Various  Schsncs  for  Borth  Conditions 


CHAPTER  V 


HAMS  COMPUTATIONS 

INTRODUCTION 

Thla  chapter  contains  several  exsmples  of  simplified  fender  designs 
based  on  the  design  procedures  and  assumptions  discussed  previously.  Each 
problem  is  presented  in  a  step-by-step  fashion  with  a  range  of  aolutlons  pre¬ 
sented  where  applicable.  It  la  noted  that  many  facilities  to  which  fenders 
art'  applied  consist  of  pile  groups.  Where  these  piles  act  as  a  group,  the 
design  steps  presented  do  not  account  for  the  distribution  of  the  energy  ab¬ 
sorbed  among  the  individual  piles.  Finally,  the  "factor  of  safety"  concept 
nay  be  applied  to  the  solution  of  fenderlng  requirements  though  the  nost  de¬ 
sirable  design  method  would  involve  solving  the  system  for  various  conditions 
and  selecting  an  appropriate  design  based  on  the  results.  Seven  examples 
will  be  shown,  namely; 

1.  A  Timber  Framework  System 

2.  A  Draped  Rubber  Fender 

3.  A  Raykin  Fender 

4.  A  Pneumatic  and  Foam  Filled  Fender 

5.  A  Lord  Flexible 

6.  A  Gravity  Fender 

7.  A  Steel  Spring 

EXAMPLE  NO.  1:  A  TIMBER  FRAMEWORK  SYSTEM 

Design  a  timber  framework  system  for  the  given  conditions: 

1.  A  concrete  pier  with  partially  dosed  supporting  structure. 
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2.  With  the  chipping  traffic  consisting  primarily  of  bulk  ore 
carriers  with  average  values  of: 

Length  ■  740' 

Breadth  -  101' 

Depth  -  56' 

Draft  (Loaded)  -  38.5' 

Dead  Weight  »  50,000  long  tons 

Displacement  •  62,500  long  tons 

3.  With  an  angle  of  approach  %  10*  and  the  velocity  %  0.25  feet 

per  second. 

Solution: 

1.  Evaluate  the  coefficients. 

a)  Assume  impact  at  quarter  point  Cg  ■  0.5 

b)  Partially  open  structure  C£  ■  0.9 

c)  Assume  stiffness  ratio  Cs  -  0.9 

d)  Assume  the  hydrodynamic  coefficient  which  can  be  expressed 
by  the  following  equation: 

Cg  -  1  +  2D/B  -  1  +  2(38.5 ')/101*  -  1.76 

e)  Solve  for  C  -  Cj  •  Cg  *  Cg  •  Cg  ■  0.71 

II.  Determine  the  collision  or  berthing  velocity. 

V  -  0.25  fps  (cos  10*)  -  0.2462  fps 

III.  Determine  the  energy  which  must  be  absorbed  by  the  fenderlng 
system. 

E  ■  C  1  •  V2  •  0.71(~f.500  »  2?aP)(0.246)2 
2«  2  x  32.2 

E  -  93,900  ft.  lbs. 

IV.  Wale  Design: 

a)  Assume  the  ship  contacts  two  (2)  fender  piles. 
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b)  Assume  s  wale  slse  of  10"  x  12"  supported  on  4"  blocks, 
10"  on  center. 

c)  Assume  the  amount  of  compression  to  equal  1/20  of  the 
thickness. 


dx  -  (1/20) (12"  +  12")  -  1.2" 


d)  Compute  the  amount  of  bending  at  the  quarter  points. 


d-  “  Z2_[31_  -  4a*) 

6EI  4 

where : 

1  “  Length  on  center  “  12"  x  10'  ■  120  In. 

a  -  1/4  -  120/4  -  30" 

E*  “  Young's  Modulus  for  given  material 

I  ■  Moment  of  Inertia  (bh^/12)  *  1440  in.4 

*  “  The  material  properties  for  a  given  species 

of  wood  may  be  found  by  contacting  the  National 
Forest  Products  Association  or  consulting  the 
Forest  Products  Manual. 

If  it  is  assumed  that  the  valer  is  to  be  made  of 
Douglas  fir,  the  following  properties  would  apply: 

E  -  1.90  x  106  psi 

Impact  bending  “  4800  pel 
Impact  compression  "  1000  psi 


POO") 


[3/12°->_  -  4 (30") 2 ] 


6(1,9  x  10^) (1440  in.4)  4 

d2  -  1.32  x  10"  5  P 


e)  Then  equate  the  energy  used  in  bending  and  compression  to 
that  absorbed  by  the  fenderlng  system. 


2P(dx  +  d2)  -  C  V2 
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2P(1.32  x  10~5P  +,  1.2)  -  93,900  fc.  lbs. 
P  -  29,530  lbs. 


f)  Compute  the  compression  and  bending  stresses  to  Insure 
thst  they  sre  within  the  ainlaum  values. 

Compression  stress  *  - - - 

Bearing  Ares 

Assume  s  5"  width  of  contact  between  fender  pile  snd  water: 

Compression  "  29,530  m  492  pd  <  1000  pel  O.K. 

5“  x  12" 

Bending  -  Mc/I  ■  P  /I  “  jj»5,?.°t3 0).(5).  ■  3076  pel  <  A800  psi 
C  1440 


O.K. 


EXAMPLE  NO.  2:  A  DRAPED  RUBBER  FENDER 


Design  a  Draped  Rubber  Fender  utilising  the  same  parameters  as  in  Example 
No.  1. 

Solution: 

I.  Evaluate  the  coefficients. 

C  -  0.71 


11.  Determine  collision  velocity. 

V  -  0.2462  fps. 

Ill.  Determine  energy  absorbed  by  tendering  system. 
E  -  93,900  ft.  lbs. 

Assume  contact  surface  •  2  feet. 

E/ contact  •  46,950  ft.  lbs. /ft. 
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XV.  Find  appropriate  fandering  ay at am  froa  energy  tab lea  located 
in  the  Appendix  ualng; 

E  -  93.9  K-ft.  or  1126.8  K-in. 

and 

E/ft.  -  46.95  -  563.4  *~ln- 

ft.  ft. 

The  following  are  some  fendering  possibilities. 

Energy  at  Percent  Deflection 


Company 

Fender  Name 

SO 

60  70 

80 

90 

100 

Goliath  (K-ln.) 

1000  x  500  (K-in.) 

1130 

1433 

2000 

1200  x  600  (K-in.) 

1303 

1738 

2170 

2610 

1400  x  800  (K-in.) 

950 

1390 

2000 

3475 

1500  x  800  (K-in.) 

1000 

1564 

2260 

3475 

Goodyear 

None  Available 

Uniroyal 

60"  Cylindrical  (K_ln’) 
ft* 

630 

828 

Any  of 

the  above  fendering  systems  may 

be  used .  The 

choice 

among 

them 

may  be  baaed  on  economy,  hull  pressure,  or  installation  requirements. 


The  computation  of  the  hull  pressure  la  as  follows: 

a)  Assume  a  fender  else:  1000  x  500 

b)  Determine  the  amount  of  deflection  for  given  energy. 

Since  we  need  D  ■  1126.8  K-ln.  and  at  80  percent  deflec¬ 
tion  we  have  1130  K-in.,  we  are  within  the  range.  Therefore, 
froa  the  energy  table  4|UX  “  20.5"  and  the  deflection  ■  20.5" 
x  0.80  -  16.4". 

c)  Determine  the  stiffness  coefficient  froa  the  appropriate  curve. 


At  a  16.4"  deflection,  X  -  8.5  Kips  per  inch 


d)  Determine  the  reaction  force. 

F  ■  It  »  i  ■  (8.5) (16.4)  -  139.4  Kips 

e)  Determine  surface  area  of  contact. 

Assume  approximately  1  sq.  ft.  or  144  6q.  in. 

f)  Determine  hull  pressure. 

Pressure  -  139.4  K/144  in.2  -  0.97  Kips/in.2 

g)  Check  this  against  ships'  specifications  and  it  it  checks, 
then  we  use  the  assumed  tendering  system. 

EXAMPLE  NO.  3:  THE  RAYKIN  FENDER 

Design  a  Raykln  Rubber  Fender  given  the  same  design  parameters  as  in 
the  previous  two  examples. 

Solution: 

Since  this  is  a  rubber  fender  design,  the  same  procedure  and  calculations 
apply  as  in  Example  No.  2,  and  we  go  directly  to  the  Raykin  tables  to  choose 
our  system. 

The  following  Raykin  fenders  are  ■callable  for  the  mathematics  of  Example 
No.  2. 
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Energy  at  Percent  Deflection 

Coapany 

Size 

4  v 

70 

80 

90 

100 

WAX 

General  Tire 

E-40  tons 

950 

1180 

18.8  in 

and  Rubber, 

Raykin 

-45  tons 

1080 

1330 

18.8 

-50  tons 

936 

1200 

1520 

18.8 

-60  tons 

1074 

1380 

1740 

18.8 

F-40  tons 

1100 

1332 

22.4 

-45  tons 

1010 

1248 

1500 

22.4 

-50  tons 

1120 

1380 

1632 

22.4 

-60  tons 

1020 

1320 

1660 

2040 

22.4 

Hull  pressure  is  tabulated 

for  a 

bearing  area  of  2 

sq.  ft. 

or  288  sq. 

in.  The  procedure  and  results  are  tabulated  below. 


Size 

Percent  Deflection 
for  E  -  1126.8  K-in. 

Deflection 
(4,  in.) 

K 

(K/in.) 

Reaction 
Force 
(K  *  6,  K) 

Pressure 

(pel) 

E-40  tons 

97.8 

18.4 

6.2 

114.1 

396 

-45  tons 

92.0 

17.3 

7.0 

121.1 

420 

-50  tons 

87.3 

16.4 

6.8 

144.3 

500 

-60  tons 

81.8 

15.4 

9.4 

144.8 

503 

F-40  tons 

91.3 

20.5 

4.7 

96.4 

335 

-45  tons 

85.0 

19.0 

5.4 

102.6 

356 

-50  tons 

80.4 

18.0 

6.0 

106.0 

375 

-60  tons 

73.7 

16.5 

7.5 

123.0 

43<f 

These  pressures  are  all  within  the  allowable  Units  for  nost  cargo  ships.  The 
choice  anong  then  nay  be  based  on  econonics. 


EXAMPLE  HO.  A:  PNEUMATIC  AMU  FOAM  PILLED  FENDERS 


Design  ■  pneumatic  or  foam  filled  fender  given  the  following  conditions: 

1.  A  concrete  pier  with  a  completely  cloaed  structure. 

2.  With  the  shipping  traffic  consisting  primarily  of  tankers  with 
aversge  values  of: 


3. 


Length  • 

Breadth  » 

Draft 

Dead  Weight  " 

Displacement  - 

With  an  angle  of  approach 
per  second. 


1130' 

110' 

65* 

330,000  long  tone 
380,000  long  tons 
20*  and  the  velocity 


0.25  feet 


Solution: 


1.  Evaluate  coefficients. 

a)  Assume  impact  at  quarter  point,  therefore,  Cg  •  0.5 

b)  Closed  atructure,  therefore,  Cc  *  0.8 

c)  Assume  stiffness  ratio,  therefore,  Cg  •  0.9 

d)  Assume  the  hydrodynamic  coefficient  which  can  be  expressed 
by  the  following  equation: 


Cj,  -  1  ♦  2D/B  -  1  ♦  2(65’)/110'  -  2.17 

e)  Solve  for  C  •  •  C£  •  Cg  •  Cg  •  0.78 

II.  Determine  the  collision  or  berthing  velocity. 


V  -  0.25  fps  (cos  20*)  -  0.235  fps 


III.  Determine  the  energy  which  must  be  absorbed  by .fendering  system. 

E  .  c  •  !L  •  V2  -  0-78(380.000  x  2240) (0.235)* 

28  2  •  322 
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C  -  569,350  ft.  lbs. 

I  •  6830  K-ln. 

The  foil ovln(  are  same  fonder  possibilities: 


Company 

Yokohama 


randar  Haas 

Pneumatic 
2500  x  5500 
3300  x  6500 


Energy  of  Percent  Deflection 


30 


40 


4,560 


50 

3,900 

8,940 


60 


6,900 


70 


4500  x  9000  5,400  12,000  23,750  42,300 


Seward 


roam  rilled 
8  x  16 


6,000  9.300 


177.2 


96 


Sampson 


10  x  16 

3,600 

6,900 

9,240 

120 

10  x  20 

4,500 

7,500 

11,400 

18,000 

120 

11  x  22 

6,000 

9,900 

15,300 

24,000 

132 

Sprayed 

8  x  16 

4,200 

7,320 

96 

8  x  20 

5,100 

9,480 

96 

10  x  16 

6,600 

11,500 

120 

10  x  20 

4,320 

7,200 

13,200 

120 

Any  of  the  above  tendering  systems  fllfllla  the  energy  requirements.  The 
choice  among  them  may  be  baaed  on  economy,  bull  preeaure,  or  installation 
requlremente. 

The  computation  of  the  bull  pressure  will  compare  one  of  each  of  the 
above  types  of  fenders.  Tha  tabic  below  ahowa  the  significant  values  for 
energy  absorption  of  6830  K-ln.  K  values  are  taken  from  the  appropriate 
curves. 
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Company 

Fender  Name 

Percent  Deflection 
for  6830  K-ln. 

Deflection 

(in.) 

K 

(E/in.) 

Reaction 

Force 

(E) 

Yokohama 

Pneumatic 

3300  x  8500 

45.2 

58.7 

7.2 

422.6 

Seward 

Foam  Filled 

10  x  16 

50.0 

60.0 

3.8 

228.0 

Sampson 

Sprayed 

10  x  20 

48.7 

58.4 

6.0 

350.4 

The  Seward  fender  yields  the  lowest  reaction  force  for  this  example  and 
would,  therefore,  be  the  first  choice  if  hull  pressure  is  a  significant  de¬ 
sign  requirement.  The  bearing  area  to  be  used  in  the  calculation  i6  dependent 
upon  the  contours  of  the  ship  traffic. 

EXAMPLE  HO.  5:  LORD  FLEXIBLE  FENDER 

Design  a  Lord  flexible  fender  for  the  given  situation: 

1.  A  concrete  pier  with  an  open  structure. 

2.  With  the  shipping  traffic  consisting  of  passenger  ships  with 
average  values  of: 

Length  ■  920' 

Breadth  ■  105' 

Draft  -  32’ 

Depth  "  45' 

Dead  Weight  “  10,500  long  tons 

Displacement  ■  27,000  long  tons 

3.  With  an  angle  of  approach  15*  and  the  velocity  0.25  feet 
per  second. 

Solution: 

I.  Evaluate  coefficients 

a)  Assume  Impact  at  sixth  point  Cg  •  0.38 


b)  Open  structure  Cc  ■  1.0 

c)  Assume  stiffness  ratio  Cg  ■  0.9 

d)  Assume  the  hydrodynamic  coefficient  which  can  be  expressed 
by  the  following  equation: 

Cn  -  1  +  2D/B  -  1  +  2(32’)/105'  -  1.61 

e)  Solve  for  C  -  C£  •  C£  •  Cg  •  ■  0.55 

II.  Determine  the  collision  or  berthing  velocity. 

V  -  0.20  fps  (cos  15*)  -  0.193  fps 

III.  Determine  the  energy  which  must  be  absorbed  by  fendering  system: 

E  -  C  •  1L  •  V2  -  0-55(27,000  x  2240) (0.193)2 
2g  2  •  32.2 

E  -  19,240  ft.  lbs. 

E  -  230.9  K-in. 


The 

following  are  some 

fender  possibilities 

obtained  from  the 

Lord  tebles: 

Energy  at  Percent 

Deflection 

Company 

Fender  Name 

60  70 

80 

90 

100 

^ax 

Lord 

2F4-212 

228 

264 

14.5 

-319 

215 

275 

325 

390 

14.5 

-390 

230  275 

350 

410 

460 

14.5 

The  hull  pressure  is  besed  on  a  bearing  area  of  one  square  foot  or  144 


square  Inches.  The  K  values  are  obtained  from  the  appropriate  curves. 


Company 

Fender  Name 

Percent 

Deflection 

Deflection 

(in.) 

E 

(E/in.) 

Reaction 

Force 

Pressure 

(pel) 

Lord 

2F4-212 

90.6 

13.1 

1.75 

22.9 

159 

-319 

72.5 

10.5 

3.05 

32.0 

222 

-390 

60.0 

8.7 

4.10 

35.7 

250 

The  above  pressure*  are  within  allowable  limits  for  most  passenger  ships. 
The  choice  among  them  may  be  based  on  economics  or  laetallatlon  limitations. 

EXAMPLE  MO.  6:  GRAVITY  FENDER 

Design  a  gravity  fender  utilizing  the  sane  parameters  as  Example  No.  5. 
Solution : 

Z.  Evaluate  the  coefficients. 

C  -  0.55 

II.  Determine  the  collision  or  berthing  velocity. 

V  -  0.193  fps 

III.  Determine  energy  absorbed  by  the  tendering  system. 

E  •  19,240  ft.  lbs. 

E  -  230.9  R-in. 

IV.  Structursl  limitations  restrict  the  amount  of  deflection  to 
24  inches. 

The  equation  of  the  energy  loss  for  the  gravity  fender  is; 

E  •  F  x  d 


where  E  is  energy  loss,  F  Is  tbs  weight  of  the  fender,  and  d  is  the  horizontal 


4*- 


dlsplacement .  Rearranging  the  ttnt  yield*; 

P  -  1  -  11? -9  *rln.-  -  9.6  Ups 

d  24  in. 

The  structure  oust  then  be  built  to  support  this  weight  end  ellow  the  re¬ 
quired  displacement  of  the  boss. 

EXAMPLE  MO.  7:  STEEL  SPUING  TENDER 

Design  s  steel  spring  fender  utilising  the  same  parameters  as  Example 
Mo.  5. 

Solution: 

1.  Evaluate  the  coefficients. 

C  -  0.55 

II.  Determine  the  collision  or  berthing  velocity. 

V  -  0.193  fps 

III.  Determine  the  energy  absorbed  by  the  fender ing  system. 

E  -  19,240  ft.  lbs. 

E  -  230.9  K-in. 

The  equation  of  the  energy  loss  for  the  steel  spring  is; 

E  -  K  x  d2 

where  E  is  the  energy  loss,  K  is  the  spring  constant,  end  d  Is  the  displace¬ 
ment  along  the  length  of  the  spring.  Rearranging  terms  yields; 

X  •  E/d2 
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If  structural  11*1 tat loos  restrict  lliplicHUt  to  tea  lac  has,  than; 


I«L.  23.0:9  K-la.  .  2.309  l/in. 

i2  (10  la.)2 

The  design  of  the  spring  to  aaet  the as  requiraaeata  may  follow  any  structural 
atthod . 
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CHAPTER  VI 


DESIGN  APPLICATION  AND  COMPUTERS 

INTRODUCTION 

The  design  of  tendering  systems  which  protect  bridge  plere  against  ahlp 
Impact  or  at  minimum  retard  direct  collision  hat  utilised  basic  fundamentals 
of  physics  and  simple  pile  equilibrium  as  Illustrated  In  the  previous  two 
chapters.  Such  assusqitlons  can  often  lead  to  grossly  overdesigned  systems 
or  In  some  cases  Inaccurate  force  evaluation  in  the  entire  support  system. 
Therefore,  this  chapter  deals  with  the  development  of  Improved  design  cri¬ 
teria  and  the  application  of  a  complex  computer  oriented  dynamic  aolutlon. 


•  • 


T 


t 


THEORY 

General  Techniques.  -  The  general  response  of  a  piling  system,  when 
subjected  to  a  ship,  la  computed  by  r moving  the  pile  and  examining  Its 
effect  ae  a  cantilever  beam,  as  shown  in  Figure  1.  The  Interaction  of 
lateral  elenents,  such  aa  valers  are  neglected  and  thus  a  conservative 
design.  TWo  general  theoretical  equations  are  used  by  the  designer,  and 
are  based  on  force-acceleration  and  kinetic  energy  relationships. 

Force-Accelerationi 

the  Induced  or  applied  force  to  the  system,  caused  by  the  ships  Impact  is; 

Fa  *  K(wi2  "  Wf2)/2A.  (l) 

where:  M  ■  mass  of  ship 

&a  “  deformation  of  system  at  point  of  Impact 

Vj,  vf  -  initial  and  final  velocity 

the  resisting  force  of  the  systm  Is: 

Fr  -  3daE(I/D.F.)/L3  +  IkAa  (2) 

where:  E  “  modulus  of  elasticity  of  pile 
I  -  Inertia  of  pile 

D.F.  “  lateral  distribution  of  load  due  to  lateral  stiffness 
or  effect 

L  “  cantilever  length  of  pile 
k  “  spring  constant  of  fendering 
the  Induced  moment  and  stress  Is  computed  from; 


H  •  i  l  and 

(3) 

f  •  K/(S/D.F.) 

(*> 

where:  S  -  section  modulus. 

US 

In  applying  this  method  the  designer  would  asaime  on  allowable  d^ 
and  initial  stiffness  I.  If  the  resisting  force  Ff  >  F  ,  then  the  actual 
would  be  smaller  than  assumed.  The  induced  stress  f  would  be  compared 
to  the  allowable  or  ultimate  stress  of  the  naterial. 

Kinetic  Energy; 

The  Induced  energy  caused  by  the  ship  is  given  by: 

Ei.-iHvi2<V<c.)(cc,<cE>  <5) 

where:  -  initial  or  translational  ship  velocity 

2D 

Cy  ■  hydrodynamic  coefficient  *■  1  +  — 

D  -  draft  of  ship 
B  ■'beam  of  ship 
Cg  -  eccentricity  coefficient 

C  “  softness  coefficient 

8 

C£  -  configuration  coefficient 

the  C  coefficients  (C_,  C  and  C  )  can  be  set  equal  to  i.O,  for  the 
b  s  c 

worst  case.  Other  variations  can  be  obtained  for  specific  ship  variables, 
as  given  in  Ref.  (2). 

The  output  energy  or  that  energy  that  can  be  absorbed  by  the  piling 
system  is; 

E  -  F.d  +  I  ik  d  ? 

o  p  it 

but  A  -  FL3/3E(I/D.F. ) ,  therefore 
P 

E  -  F2L3/  (3EI/D.F. )  +  E-i  kd2  (6) 

O  i. 

Using  equations  (5)  and  (6)  and  assuming  d  »  FL  /3EI/D.F.  or  sero,  the 

induced  force  F  is  determined.  The  resulting  d  can  then  be  evaluated  and 

used  to  reevaluate  E  if  d  -  0  was  originally  assumed.  The  resulting 
o 


moment  and  stress  is  found  as  per  equstlons  (3)  and  (4). 


System  Technique.  - 

A  complete  pile  system  is  shown  in  Figure  2,  and  Includes  the  support 
piles  and  lateral  walers,  excluding  fenders.  This  system  in  effect  is  a 
cantilever  grid  plate,  subjected  to  a  lateral  load.  The  response  of  such 
a  system  has  been  determined  by  using  a  matrix  formulation  as  repre¬ 
sented  by  a  finite  difference  acheme  (3).  The  stiffness  of  this  grid 
is  defined  as  D^  and  D^,  which  is  computed  as  -  El^/xy  >TMj  p  _ 

Ely/Xx. 

Such  a  scheme,  which  has  been  computerized,  has  permitted  direct 
solution  of  the  deformations  and  forces  throughout  the  pile  grid  system. 
Relationship  between  the  induced  syBtem  deformation  and  isolated  pile 
gives  a  new  design  technque,  classified  herein  as  load  distribution 
factor.  This  factor  shows  what  percentage  of  load  goes  to  each  pile 
when  the  load  is  applied  to  one  pile. 


PARAMETRIC  STUDY 

In  order  to  determine  the  distribution  factor,  is  necessary  to 

determine  the  system  response.  The  determination  of  this  factor  (DF) 

has  been  obtained  for  typical  grid  stiffnesses  (D  ,D  )  and  span  length 

x  y 

(L)  or  height  of  the  pile.  A  unit  load  effect  was  used  in  examining 
the  system  and  single  pile. 


Longitudinal  Stiffness.  -  D 


El 


The  range  in  the  stiffness  “  xx  ’  was  determined  by  examination 
of  typical  steel  HP,  steel  W,  and  12  in.  -  28  in.  round  timber  members 
which  are  used  in  piling  systems.  The  spacing  Xx  was  varied  between 
5  ft.  and  25  ft.,  in  5  feet  increments.  The  length  of  cantilever  plate 
was  varied  between  20  ft.  and  60  ft.  in  4  feet  increments. 
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Transverse  Stiffness.  -  D 

EI* 

The  range  Is  the  stiffness  D  »  - — ,  was  determined  by  also  ex- 

x  Ay 

•mining  typical  walers,  which  consisted  of  steel  W  and  10  in..  12  in., 
and  14  in.  timber  sections.  The  spacing  Ay  was  varied  the  same  as 
the  Ax  variable. 

Range  in  Parameters. 

A  study  of  all  of  the  resulting  stiffnesses  indicates  the  follov- 


lag  ranges; 

Variable 

Lower  Bond 

Upper  Bond 

D 

2xl04k-in. 

6xl05k-in. 

y 

D 

4xl03k-in. 

10xl04k-in. 

X 

L 

20  ft. 

60  ft. 

Grid  Difference 

Solutions 

Uslng  these  ranges  in  parameters  and  applying  a  unit  load,  the 
im-rimmn  deformation  in  the  system  has  been  obtained.  In  all  these 
solutions  a  maximum  of  ten  vertical  mesh  lines  was  used,  where  the 
spacing  of  the  lines  was  set  equal  to  a  constant  Ax  •  60  in.,  which 
gave  a  width  of  45  ft.  The  mesh  points  along  these  vertical  lines  was 
fixed  at  Ay  *  48  in.  for  the  range  of  20  ft.  to  60  ft. 

The  solution  of  systems  has  given  the  4sys  which  was  then  di¬ 
vided  by  the  factor  L3/3EIy,  which  is  called  Distribution  Factor  (D.F.). 
These  results  were  then  plotted,  (D.F.)  vs.  pile  height  L,  as  given  in 
Figures  3  through  10.  This  ratio,  given  D.F.,  will  now  be  described. 

Distribution  Factor. - 

The  finite  difference  cantilever  grid  equations  can  provide  direct 
deformation  values  along  any  pile.  Depending  on  the  lateral  stiffness 
(D^),  the  deformation  at  the  top  of  free  edge  of  the  piles  can  vary 
dramatically.  This  variation  is  quite  important  if  the  designer  wishes 
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to  properly  Identify  the  interaction  between  the  piles  and  an  isolated 
pile.  A  convenient  method  to  describe  such  interaction  is  to  relate  the 
deformation  of  the  systems  (As)  to  that  of  the  isolated  pile  (Ap),  which 
is  called  a  distribution  factor  or: 


_  _  As 
D.F.  -  — 
Ap 


(7) 


where:  As  “  maximum  deformation  in  the  grid  system  (finite  differences) 


Ap  •  PL  /3Ely  -  cantilever  pile  deformation 

Equation  (7)  signifies  the  reduction  in  deformation  of  an  Isolated 

pile  when  that  pile  is  part  of  the  system  and  thus  the  influence  of 

lateral  stiffness.  Therefore,  the  stiffness  (I)  of  an  isolated  pile 

can  be  increased  by  the  amount  of  1/D.F.  or  I  sys  -  I  /D.F.  This  factor 

P 

has  been  referenced  in  equations  (2)  and  (6). 

The  resulting  distribution  factors,  for  various  relative  stiff¬ 
nesses,  are  given  in  Figures  3  through  10,  and  can  be  used  for  direct 
design. 
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COMPUTERIZED  SOLUTION 

As  described  previously,  the  system  response  can  be  evaluated  by 
use  of  (D.F.)  curves.  This  approach,  although  sufficient  for  engin¬ 
eering  design,  can  be  improved  by  utilisation  of  atructural  dynamics 
and  computerisation.  Such  a  system  has  been  developed  and  incorporates 
the  following  features; 

General. - 

The  interaction  of  a  protective  bridge  fendering  system,  or  wharfs 
which  can  consist  of  a  series  of  piles  imbedded  in  a  soil  medium  ami 
stiffened  laterally,  with  possible  absorbing  devices  attached,  is  a 
complex  system  under  static  conditions  and  highly  redundant.  This 
action  is  further  complicated  if  the  system  Is  subjected  to  dynamic 
forces. 

Another  system  which  is  utilised  for  bridge  protection,  is  a 
cluster  of  piles  wrapped  with  cables,  or  a  cell  dolphin  or  a  series 
of  steel  piles  with  a  rigid  cap.  The  dynamic  response  of  any  of  these 
systems  is  also  complex. 

In  the  past,  the  solution  of  either  the  fendering  system 
or  dolphin,  has  been  examined  by  the  engineer  as  a  single  element, 
fixed  at  the  base  (cantilever)  and  then  applied  as  a  basic  physics  re¬ 
lationship.  This  method  rewards  the  engineer  with  simplicity  but  in¬ 
herently  may  not  be  conservative  nor  safe.  This  condition  has  therefore 
lad  to  the  impetus  of  developing  a  computer  oriented  solution  of  such 
systems  which  can  incorporate  many  variables,  which  are  not  possible 
in  the  simplified  technique,  and  thus  provide  raold  and  accurate  solu¬ 
tions  to  a  complex  problem. 
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Assumptions. - 

1.  The  piling  interaction  with  the  soil  medium  is  considered, 
i.e.,  flexible  supports. 

2.  Soil  may  be  layered. 

3.  Piling  group  is  considered  as  a  three  dimensional  unit. 

4.  Interactions  of  the  horizontal  walers  is  considered. 

5.  Forces  and  deformations  throughout  all  piles,  at  any  time 
interval,  can  be  evaluated. 

6.  The  forces  and  deformations  are  evaluated  along  the  length 
of  each  pile. 

7.  Rigid  wharfs,  fenders,  dolphins,  or  combinations  can  be  con¬ 
sidered. 

8.  During  ship  Impact,  any  pile  that  falls,  is  noted  and  the 
system  is  reevaluated. 

9.  Total  energy  in  the  system,  input  and  output,  is  computed 
during  each  time  interval. 

10.  The  system  may  have  any  general  plan  orientation;  i.e., 
(straight,  curved  etc.). 

Input  Data.- 

The  input  requirements  for  the  tendering  or  dolphin  is  flexible, 
depending  on  the  problem.  If  tbe  system  is  straight,  then  the  spacing 
and  point  of  impact  need  only  to  be  specified.  In  the  case  of  straight 
and  curved  systems,  then  the  requirements  are  more  rigorous.  A  sample 
of  the  various  problems  that  can  be  investigated  by  the  program  are 
given  in  Sample  Problems  1  through  10  for  fendering  system  and  Sample 
Problems  1  through  5  for  dolphins. 
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L(£t.) 


FIGURE  6 


Constant  ■  10(10*) 


Constant  ■  6(10 
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SAMPLE  PROBLEMS  2,  6 


10000  T. 
.4  knot 


F  -  2  k/in2 

y 


.02  4+4 


SAMPLE  PROBLEM  3 


’A<*\ 


In  order  to  demonstrate  the  use  of  the  distribution  factor  (D.F.) 
as  applied  to  pile  supported  faaders,  the  following  wooden  system  will 


be  examined,  as  shows  in  Figure  11.  The  parameters  relative  to  this 
system  are; 

Length  of  pile  (1)  -  34  ft. 

Pile  Spacing  (Xx)  -  80  in. 

Width  of  system  “  720  in. 

Modulus  of  Elasticity  E  -  1600. ksi  (pile  t  valers) 

I  pile  -  .0491d4  -  19,180. in4  (25’>) 

1  waler  ■  bd^  -  833. in4  (10"xl0") 

Fenders  not  used  (K  -  0.0) 

The  ship  parameters  are; 

Weight  of  Ship  -  10,000  ton  (20,000.  kip) 

Velocity  of  ship  (v^  -  0.40  knot  (8.21  in/sec) 

The  general  pile  system  will  be  examined  under  three  variations  in 
lateral  stiffness. 


Case  I  will  have  only  one  waler  at  the  top  of  the  pile  (Xy  ■  34  ft.),  the 
second  condition  Case  II,  the  walers  will  be  spaced  at  (Xy  -  5’-7"). 
and  the  last  Case  III,  will  have  walers  at  Xy  »  1.0  ft.  intervals. 

The  solutions  for  each  of  these  cases  are  as  follows; 

CASE  I 

System  of  vertical  piles  with  no  fenders,  shown  in  Fig.  11,  with 
only  one  waler  at  the  top.  The  plate  is  modeled  by  smearing  the  stiff¬ 
ness  over  the  total  area  (D  x  L),  which  gives; 


y 'pile  (1600  k/in  )  (19,180. in 

X_  “  (720/9)  in 


3.84  x  105k-in  (use  4  x  105) 


■as 


? 


tm 


tit 


PI  .  <P«W  .  <1M0  .  3.3  ,  IP3  t-1.  <„..3,103) 

Xy  34(12}  In 

from  Figure  9,  using  L  *  34  ft.,  DT  ■  4.0  z  10"*  sod  DX  *  3  x  103,  then 
D.F.  -  .300.  With  this  information  the  induced  stresses,  ss  computed  by 
the  two  methods  ere  computed  ss  follows; 
i)  Force  Acceleration: 

Apply  Eq.  (1),  and  assuming  As  “  20  in.,  gives; 

Applied  Force 

Fm  -  M(v12)/2As 


F 

a 


.20,000.. 

1  32.2  ' 


2(20/12) 


87.2 


Resisting  Force 

Fr  -  3AsE(I/D.F.)/L3  +  EkAs 

rx  -  3(20)  (1600.)  (-^-ffi/(34zl2)3 
Fr  -  100. 2k 
Fr  >  Fa'  ‘  0K 

Moment 

M  -  F#  t  -  87.2  z  (34x12)  -  35,577.6  k-in. 


Stress 


a  •  M/ (S/D.F. ) ,  where  S  ■  ■  1534. in3,  D.F.  ■ 


o 

o 


35577.6 

1534. 


.300 


6.9  ksi  <o  -  7  kai  (assumed) 
u 


without  D.F. ,  a  *  21  ksi 


.300 
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11)  Kinetic  Energy:  Applying  Eq.  (5)  the  Induced  energy  le  computed  ee; 


in. 


E 


in. 


I*'.2  «»>".>  <Cc,(CE> 


1  .20.000.. 

2  1  32.2  7 


(8.21)2 
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(1.825)  (1)  (1)  (1) 


where:  C  ■  1  ♦  — ,  D  -  33  ft.,  *  -  80  ft. 

CH  *  C.  *  1.  Cc  -  1.  CE  -  1 

therefore:  E.  -  181.5  k  ft  -  2178.  k-in. 

ID* 

The  output  energy  of  the  system,  given  by  Eq.  (6),  Is; 

E  -  F2L2/(3EI/D.F.) 
o 

Eq  -  F2(12*34)2/ (3x1600. (19180./. 300)) 

Eq  -  F2  (.221) 


Equation  Eo  ■  Ein  gives 

2178.  -  F2x  .221 
F2  -  9855.2 
F  -  99.3  k 

Moment : 

M  -  F  x  L  -  99. 3x(34xl2)  0,514.4  -  k  in 


CASE  II 


Stress: 

a  -  M/ (S/D.F. )  -  (°55l/:30)  "  7>9  *  7,0  ksl 

Marginal 


This  case  is  similar  to  Case  I.  except  the  valer6  are  now  placed  at 
5'-7"  Intervals.  This  will  provide  a  change  in  the  Dx  stiffness,  which  Is: 


D 


x 


(EIx)waler 

>y 


-  &BB1 .  U99M*  k-in 
67  (Use  2xl04) 
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» 


* 


D 

y 


(EIy  plle)  _  (1600)  (19,150.) 
Xy  "  720 


3.84xl05  k-in 
(Use  4xl05) 


Examining  Figure  9,  gives  D.F.  •  .220 
1)  Force  Accelerations 

As  given  In  CAse  I,  F^  »  87. 2k, 
the  resisting  force  Is  computed  as; 

Ff  -  100. 2(. 300/. 220)  -  136.  6k 

F  >  F  . • .  Section  OK. 

r  a 

the  Induced  stress  Is; 

a  -  6. 9( . 220/  300)  -  5.06  ksi  <  7.0  ksi  OK. 
11)  Kinetic  Energy: 

Eln  -  2178. kin. 

E  -  F2(.221)  (.220/. 300)  -  . 162F2 
o 

Equating  Eq  «  Ein  gives  the  Induced  force  F  of; 

2178.  -  F2  x  .162;  F  -  116. k 
the  Induced  stress  Is  therefore; 


o  -  7 . 9(  ( .  22/ .  30)  (U6./99.3)  -  6.8  ksi  <  7.0  ksi 


CASE  III 

This  final  case  consists  of  valers  spaced  at  1.0  ft.  Intervals, 

/ 

0  -  -  1.1  x  10W 

x  Xy  12 

(Use  IxloVin) 

D  -  3.84xl05k-in  (Use  4xl05k-in) 

y 

Using  Figure  9,  D.F.  -  .15 
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1)  Force  Acceleration 

As  given  in  Case  I,  “  87. 2k 

the  resisting  force  is  computed  me; 

Fr  -  100. 2(. 300/.  15)  -  200. 4k 

F  >  F  Section  OK 

r  a 

The  induced  stress  is: 

a  -  6. 9(. 150/. 300)  -  3.45  ksi  <  7.0  ksi 

ii)  Kinetic  Energy 

E,  -  2.78.0  k-in. 
in 

E  -  F2( . 221)  (.150/. 300)  -  .110  F2 
o 

equating  E^  ■  Ein  gives  the  induced  force  F; 

2178  -  F2  z  .110 
F  -  140. 7k 

The  induced  stress  is  therefore; 

a  -  7.9(.15/.30)  (140.7/99.3)  -  5.6  ksi  <  7.0  ksi 
A  comparison  of  the  results  are  shown  in  Table  2,  and  show  the  effect 
the  walers  have  on  the  reduction  of  stress  on  the  piles,  through 
lateral  distribution  of  load.  Also  shown  in  the  table  are  the  results 


obtained  from  a  computer  simulations  model  (1). 


■MW 


TABLE  l 


CASE 

Xx(in) 

Xy(in) 

D  x  105(k-in) 

y 

D  x  10 

X 

1. 

90. 

408. 

4.0 

3J 

2. 

90. 

67. 

4.0 

20. 

3. 

90. 

12. 

4.0 

100. 

TABLE  2 

METHOD  COMPUTER 


CASE  NO. 

Force  Acceleration 
Force(k)  Stress(ksi) 

Kinetic 

Force(k) 

Energy 

Stress(ksi) 

Force(k)  Stress(ksi) 

1. 

87.2 

6.  S 

99.3 

7.9 

139.7 

2. 

87.2 

5.06 

116. 

6.8 

107. 

3. 

87.2 

3.45 

140.7 

5.6 

85.0 
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EXAMPLE  2 

The  docking  of  vessels  in  a  port  facility  requires  a  structural 
system  which  can  support  the  impact  of  the  vessel,  continue  to  be 
serviceable,  have  easy  maintenance  at  a  minimum  cost. 

In  general,  the  warf  or  dock  contains  a  front  battered  pile  •' 

with  possible  walers  and  absorbing  devices,  as  shown  In  Figure  12. 

In  many  instances,  bulbus  bow  ships  will  shear  off  the  bottom  of  | 

the  front  pile,  without  any  noticeable  damage  to  the  top  of  the  I 

pile  until  an  inspection  Is  made. 

Thus,  It  is  apparent  that  a  new  structural  system  or  By stems  , 

should  be  devised  to  remedy  this  problem  and  contain  the  following 
features:  ' 

1.  Minimum  Construction 

2.  Minimum  Cost 

3.  Easily  Maintained 

4.  Structurally  Sound 

3.  Reasonable  Life 

This  criteria  can  be  met  with  improved  technology  and  engineering 
Judgment,  an  example  of  which  will  be  described  herein. 
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Problem 


One  of  the  major  problems  of  a  port,  as  mentioned  previously, 
is  the  shearing  off  of  pilings  due  to  various  types  of  ships.  The 
design  of  a  proper  system  to  eliminate  such  a  condition,  and  to 
provide  a  reasonable  life  to  the  system,  will  be  given  by  consid¬ 
ering  a  front  vertical  piling  with  a  suspended  wooden  bulkhead  with 
attached  absorbing  device.  This  example  is  only  given  to  illustrate 
what  may  be  done  and  how  it  may  be  technically  accomplished. 

The  general  plan  of  the  system  is  shown  in  Figure  13,  and  con¬ 
sists  of  a  series  of  vertical  piles  with  a  suspended  wooden  bulk¬ 
head  and  attached  fenders.  The  bulkhead  is  supported  laterally  by 
a  series  of  channels.  Fig.  14,  which  slide  along  the  W  shape  flange. 
Repair  and  removal  of  the  bulkhead  can  easily  be  performed  by  main¬ 
tenance  personnel. 
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Solution 


a)  Analytical  Solution 

The  response  of  the  pile  system  will  be  determined  by  utilisation 
of  a  aeries  of  recently  developed  distribution  factor  (D.F. )  curves 
which  are  based  on  plate  and  girder  theories  and  consider  lateral  in¬ 
teraction  of  the  walers  or  grid.  This  interaction  is  incorporated  in 
the  design  by  evaluation  of  the  longitudinal  (D^)  and  transverse  (D^) 
stiffness  of  the  system,  as  shown  in  Figure  15. 

As  shown  in  Figure  14,  the  bulkhead  is  assumed  to  consist  of 
fifteen  6"  x  12"  treated  wooden  horizontal  mnbers  spaced  at  2'.  The 
vertical  members  comprise  six  12"  x  12"  treated  wooden  members  spaced 
at  2'.  The  stiffness  of  this  unit  is  computed  as  follows: 


0 


y 


EI/Ax 


1600.  x  1728 
10  x  12 


23040.  g-in2/in. 
Use  (2  x  104  K-in) 


Ax  -  10’ 

E  -  1600.  ksl 

I  -  U2H12)3  -  1728  in4 


D 

x 


El/Ay  - 


1600.  x  1728 
60  x  12 


3840. 


K-ln 

in. 


Use  (4  x  10J  K-in) 


Ay  -  60' 

E  -  1600.  ksl 

I  -  (12) (12)3  -  1728  in3 
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lifting  dov  the  general  energy  equation 
T  -  My2/2A  gives: 

•  \2'“. 

Assume  A  -  20”,  and  for  a  «hip  W  -  10,000  tons  and  v  -  0.60  knots, 
8  1 


then  the  applied  force  is; 


,20000., 

Te  “  (~32T') 


(8. 21; 
2x20/12 


"  h  ■  ‘7-2* 


The  resulting  force  of  the  steel  pile  Is: 

F  -  3A  E  (I/D.F. )/L3  +  KA 
r  6  ® 

assuming  no  fenders  then  K  “  0  and  Ff  “  Fg,  gives; 

87.2  -  3Ag  E  (I/D.F. )/L3,  solving  for  1  and  letting 

D.F.  •  1.0,  gives; 

Ff  -  87.2  -  3AgE(I/D.F.)/l.3  +  t  KAg 

87.2  x  (60x12) 3 
eq  “  3x20x30x10-*" 

or:  I  -  18081.8  In4 
req 

Try  W36  x  280  (1  -  18,900.  In4) 

M  -  87  x  60  x  12  -  62640.  k-in. 


62640 

1030 


60  ksl  (H.S.  -  steel) 


Bov ever  if  lateral  top  support  is  provided; 


M 


max 


f  «  60  x  3/16  -  11.4  ksi  ok. 
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Bulkhead  Effect 


for  D  •  2  x  104  k-ln  and  D  k-in  and  D  “Ax  103  k-ln 
y  xx 

then  the  distribution  factor;  DF  -  .13;  (Fig.  16) 
therefore: 


1  -  18081.8  x  .13 

req 

I  -  2350.  in4 
req 

use  W24  x  84  (I  -  2370  in4)  and  S  -  197  in3 
M  -  720  x  87  -  62640 


62640  x  .13 
197 


41  ksi 


top  support 

f  “  41  x  3/16  -7.25  ksi;  therefore  o.k. 
reduction  in  weight  280  to  84#  per  foot,  or  a 
saving  of  200#/ft  along  the  pile  length. 
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'if 'if  h  +fn)*t+-'4 /**.-«  •'*»  -^i  » 


w/HP  Pile 


EXAMPLE  3 


MOORING  DOLPHIN 
1)  Classical  Solution 

As  described  previously  the  classical  energy  methods  can 
be  applied  to  the  design  of  a  mooring  dolphin,  arranged  as  shown  in 
Figure  17,  with  a  free  cantilever  length  of  48'  and  HP  14  x  73  steel 
sections.  The  dolphin  is  impacted  with  a  25,000  ton  vessel  at  a 
velocity  of  0.50  ft/sec. 

The  induced  dynamic  force  is  given  by; 
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f 

AtiiMiiatairiAfriiitiitii'i  ■■■inini  'fifi  i 1 1  r  ra»m*6^*4idfca&ifca 


4  2 

assuming  a  HP  14  x  73  section  (Io  ■  734.1s  ,  A  -  21.5  in  ),  gives; 

I  -  6  [734.  +  2.15  (36) 2]  +  3  x  734 

I  “  173,790  In*  >  160,167.7  in.* 

Therefore  stiff neas  Is  satisfied.  Assisting  the  load  to  each  pile 
is  P  -  437.5/9  -  48.6,  then  the  moment  is  M  -  48.6  x  48  -  2333.3  k-ft. 
the  Induced  stress  is  therefore; 


f  -  2333^8*-  l-2  -  259  ksi 


if  the  group  action  is  assumed  then 


£  -  *3Li  x_j48x_121  x  36  .  52  ksi 

1  173790  *  ltsl 


which  indicates  an  over  stressed  condition. 


ii)  Computer  Solution 

The  same  mooring  dolphin  has  been  examined  by  a  dynamic 

system. 

The  results  of  the  computer  analysis  indicate  that  under  impact 


of  the  ship,  the  maxim  deformation  will  be  4 

.0  in.  when  subjected 

an  lmapct  force  of 

1721.  kips.  The  bending 

stress  at  the  mud  line 

for  each  pile  is; 

Pile  No. 

Stress(ksl) 

Def lection(in) 

1 

10.1 

4.0 

2 

0. 

0. 

3 

9.1 

3.5 

4 

5.1 

3.6 

5 

9.1 

3.5 

6 

0. 

0. 

7 

9.1 

3.5 

8 

5.1 

3.6 

9 

9.1 

3.5 
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and  energy  is  given  in  Tables 


r 


A  aumnary  of  the  output  djmaaic  data 
3  and  A. 

A  auanary  of  the  results  shows  the  syste*  is  adequate  relative 
to  the  strength  of  the  steel  sections  and  soil. 
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HER  DOLPHIN 


1)  Classical  Solution 

The  second  problem  under  study  consists  of  five  pairs  of 
steel  HP  14  z  73  sections  (one  vertical/one  battered)  connected  by 
a  rigid  pier  cap,  as  shown  in  Pig.  18.  The  pier  will  be  la  pa  c  ted  by  a 
25,000  Ton  vessel  at  6  ft/sec. 

F  “  M-  “  »  (v2)/2A 

*  8 

the  weight  of  ship  is  50,000*,  and  A  •  3  in,  v^  -  0.5  ft/sec,  which 
gives; 

„  .  50,000.  ,(.5)2). 

32.2  l2x.25  ’ 

T  -  776* 

assume  a  five  pile  group,  therefore; 

P  -  776/5  -  155* 

Assuming  a  batter  of  1/2.  then  the  force  on  the  piling  is: 


V  -  2  x  155  -  310* 

2 

Considering  a  HP  z  73  section  (A  •  21.46  in  ),  the  induced  stress  is 
f  -  310/21.46  -  14.4  ksi 
il)  Computer  solution  . 

Application  of  the  computer  program  results  in  a  maximum 
force  of  2148. K,  Inducing  s  maximum  deformation  of  1.4  in.  and  a 
Stopping  time  of  .44  seconds  to  the  system.  The  resulting  stresses 
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i Mlb 


for  each  pile  are  as 

Pile  Mo. 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


follows; 

Stress(ksi) 

3.2 

3.2 

0.2 

7.0 

7.0 

7.0 

7.0 

7.0 

2.0 

3.2 


Deflectlon(in) 

1.3 

1.3 

.67 

1.5 

1.5 

1.5 

1.5 

1.5 

1.2 

1.3 


The  results  indicate  adequate  strength  of  the  steel  elaaents 
and  soil.  However  the  site  of  the  pile  could  be  drastically  reduced. 
A  tabulation  of  the  data  is  given  in  Tables  5  and  6. 
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u 


6AS1C  PROGRAP,  PARAMETERS 


h  E  IS  HT  of  ship  ■ 
VELOCITY  OF  SHIP  ■ 
LENGTH  OF  DOLPHIN  BELOV  HL  * 
LENGTH  OF  DOLPHIN  ABOVE  ML  * 
PASS  OF  SHIP  ■ 
ANGLE  OF  PASSIVE  FAILURE  « 
OEFTh  CORRECTION  ■ 
DISSIPATION  FACTOR  * 
ALLOWABLE  STRAIN  * 


25CCO.OG  TONS  (  5e00G.CC  KIPS) 
.32  KNOTS  (  6. AS  IPS) 

65.00  FEET 
Ae.OO  FEET 

U5.0S  KIPS  / IN /SEC/SEC 
A5. GO  DEGREES 
.00  FEET 

I&30GC  IN/ IN 
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TABU  3 


N»  74 


till  •  1  /SOIL  LOADS  AMO  DEFORMATIONS  AT  TIRE  >  .73566$ I  COMBS 


berth 

•E LO«  SOIL 
R.L.  MODULUS 
(IN)  (K/SO  IN) 


ii :» 

ill 

163. ec 

m.2C 


SOIL  RESISTANCE  RILE  1  REEL. 


RILE  1  R  AN  0  V 


7*1.0 
780.  0 


|34.0C 

257.40 
280.60 
30*. 2C 
327.60 
351.00 

374.40 
397. 6C 
421.20 
4*4.60 
466. 00 


:E 

273.4 

5*6.9 

im-t 
16*  0.6 
1914.0 
2167.4 
2*60.9 
*73*. 3 
1007.? 

m 

41Q1.4 

4374.9 

46*6.3 

*921.7 

5195.2 

546C.6 


ACTUAL 

U/1N) 


MU)  MKl* 


4.005 

.095 


:;88i 

-.001 

-.000 

-:888 


-.000 

-.000 


MOMENT 

(1N-K) 

0. 

Hi!: 

12318. 

m 

2866. 

1027. 

-34  i 
-*ei. 
-5*0. 
-*  15. 

-2*i. 

-111. 

-25. 

13. 


#is? 

1706.9 
j  c96  .6 
1 6*  4 .4 
1571.2 
1  509.6 
1*7*. 5 

1465.6 
1*75.7 

1494.6 

1  54  0.5 
15*5.1 

1KS:J 

15*4.2 
1  54  3.0 
1  542.2 
15*1.6 
15*1.7 
15*1.6 
15*2.0 


DOLRHIN/SOIL  LOADS  AND  DEFORMATIONS  AT  TIKE  »  .93566  SECONDS 


DEPTH 

BELOw 

«.L. 

UN) 

.0 

!S:8 

117. g 

W:8 

1 73  r  0 

lH:8 

390.0 
*29.  g 

IS!:I 

565  .  g 
6  24.0 
663.0 
702.0 
J41.0 
7*0. 0 


GEN  DIN  6 


SHEAR 


ALLOWABLE 
(AS  I) 

23. EC 
{3.60 
*3.60 
23.60 


55.  !6 

n-M 

23.60 

1 3.  e  Q 
23.60 
23.  60 

23.60 

22.60 


actual 

<  RSI) 

1C. 11 
50. g* 
69.96 
1  13.76 
103.97 

79.23 

51.23 
26.93 

!:!i 

-4.5  2 
-3.07 

im 


53.65 

23.60 

23.80 


ALLOWABLE 

(Ksn 

14.40 
1  *  .  4  0 
14. *5 
14.40 
14.40 
1  4 . 4  'J 
14.40 
14.40 

i*.  *5 

14.40 
1*.*0 
14.40 
1  *  .  *  Q 
14.40 
14.40 
14.40 
14.40 
14.40 
14.40 
14.  *5 
14.40 


ACTUAL 

(MSI) 

197  .91 
191  .tg 
183  .07 
175  .92 

171.9* 
17*  .17 


170.53 
179  .*9 
180.04 
180.17 
160.08 
179.92 
179  .78 
179  , t9 
179  .65 
179  ,e* 
179  .65 
179  .67 


COMBINED 

STRESS 

RATIO 


169.325 
179.1*2 
165.407 
154.109 
1*6.706 
1*3.958 
1*4.72 J 
1*7.42? 

HS:!H 

155.555 

156.52? 

iit'.m 

156.156 

155.681 

155.71! 

155.6*4 

155.625 

155.647 

155.671 
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'  •».«  q»>  ft.  f-r..#;. 


r 


RAGE  76  l 


mi  *  2  /SOIL  LOADS  AMD  DEFORMATIONS  AT  TIME  «  .93566SE CONDS 


DEATH 

SE  LOW  SOIL 
M.L.  MODULUS 

(IN)  (K/SQ  IN) 

TOR  .00 

Stljl  23*^ 

76.0  4  6.60 

117.5  70.20 

15e.Q  93.60 

195.0  117.00 

234.0  140.40 

I’!: 8  !S?:S8 

351.0  210. 6C 

390.0  234.00 

429.0  (57.40 

469.0  280.60 


390.0 

429.0 

sSf  1 0 

111:8 

|i  3l  8 

1^:8 

76U.0 


304.20 

\Mi 

Will 

421.20 
444.60 
468. CC 


SOIL  RESISTANCE  RILE  2  REEL. 


RILE  2  R  AND  V 


ALLOW. 

U/IN) 

.0 

273*4 
54  6.9 

i?9§:> 

1367.1 

1640.6 
1914.0 

2187.4 
'0.9 

4.3 

7.7 

1.1 

4.6 

3628.0 

4101.4 
4374.9 
464e.3 

4921.7 

5195.2 
5466.6 


ACTUAL 

(K/IN) 


REEL  SLOPE 
(IN)  (RADI 


MOMENT 


SHEAR 

(A) 

1706.9 

mil 

1706.9 
1  706.9 
1  70  o.9 
1706.9 
1 70c .9 

i7§!:’ 
1  70  6 . 9 
1706.9 
1  706.9 
1  706.9 
1  706.9 
1706.9 
1706.9 
1 706.9 
1706.9 
1  706.9 
1  70  6.9 
1  706.9 


DOLPHIN/SOIL  LOADS  AND  DEFORMATIONS  AT  TIRE  « 


.93566  SECONDS 


DEPTH 

DELON 

M.L. 

(IN) 


117.0 
156.C 
195.0 
2  34.0 

3»:8 

351.0 

390.0 

429.0 

f  £8*  2 

5  C>  •  0 
5  46.0 
5  65.0 
6(4.) 
663.0 
1 02.0 

ho*.8 


BENDING 


SHEAR 


ALLOW  ABLE 
(  KS  1  ) 


2  3.60 
23.80 

H:I8 

23.80 


AC  TUAL 
(  NS  1  ) 


ALLOaAbLE 

((SI) 


ACTUAL 
(KS1  ) 

199  .1 
199.1 
199.1 
199.1 
199.1 
199.1 
199  .1 
199.1 
199.1 
199 .1 
199.1 
199.1 
199.1 
199  .1 
199.1 


199.1 
199.1 
199 .1 
199.1 
199.1 


COMBINED 

STRESS 

RATIO 


191.193 
191.19? 
191.193 
191.193 
191.193 
191.193 
191.193 
191.193 
191.193 
191.193 
191.193 
191.193 
191.193 
191.193 
191.193 
191.193 
191.193 
191.193 
191. 19J 
191.195 
191.193 


page  n 


t]LE  •  3  / SOIL  LOADS  AND  DC  7 ORM  AT IONS  AT  TIME  •  .935B6S  E  COLDS 


DEPTH 

BElOh  SOIL 
M.L.  MODULUS 
(IN)  USSO  IN) 


TOP 


SOIL  OESISTANCE 


3*- 

1  if: 
lit: 
Hi: 
Ui: 

J96.1 
429.  L 

isi:  8 

lid 
62**0 
64  3.5 
702.5 
741.0 

78w.5 


70.2 

1 1 8 

140.  4 

«»:!_ 

210.60 

Hi Mi 

I82:f8 

H!:i8 

374. 4C 
J97.6C 
421.20 
444.60 
466. OC 


P.:| 

ill?:? 

136?. 1 

1640.6 
1914.0 

|i!2:2 

IS26.C 

4101.4 

4374.9 

4646.3 

4921.7 
5195.2 
5466.6 


ACTUAL 

U/1L) 


-1 

-1 

-1 


PILE  3  DE7L. 

“iSr*iKir 

-3.5G?  ..Ojj 

loo 

IeE 
!8E 


PILE 


AND 


Job 

!!! 

>60 

>00 

!SE 

>go 

>5c 

>oo 


MOMENT 

(1L-R) 

0. 

-971. 

•4691. 

-8411. 

:I«8: 

-2511. 

-899. 


31.  1 66 

Hi:  US 


364  . 
218. 
97. 
22. 
-12. 
-19. 
-13. 
“*  . 
0. 


•v/> 

17C6.9 
1  717.9 
1  765.4 
1629.6 
1  e!  3 .4 

1914.3 
1  922.1 
1913.2 

1696.4 
1 e7o  .9 

1665.1 

lilt  :7 

UI!:i 

1 c5  3.1 

1654.2 
165*.  9 

1655.2 
1^55.3 
U55.2 
1  e5  5.0 


PA5E  79 

DOLPHIN/SOIL  LOADS  AND  DEFORMATIONS  AT  TIME  »  .935E6  SECONDS 


DEPTH 

DcLO* 

M.L. 

(IN) 


39.! 

?e.i 

117.1 
156.L 
155.0 
234.0 

li:l 

390.0 

429.0 

itur 

Si?:; 

8:1 

8:1 

760.1 


SENDING 


SHEAR 


ALLOWABLE 

(KSI) 


AC  TUAL 
(kSI> 


ACTUAL 
(KSI  ) 


COMBINED 

STRESS 

RATIO 


215  .92 
216 .04 
1 1 6  .12 
*16  .16 
216 .17 

216  .16 
216  .14 


193.598 
205.904 
22.479 
36.502 
43.766 
44.796 
41.539 
16.449 
;i.«|6 


25.302 


170 


me  *  4  /SOIL  LOADS  AND  DEFORMATIONS  AT  TINE  » 


PA6E  SC 

•  DISEASE  CONDS 


DEPTH 

BELOW 

FH.L. 

(IN) 

TOP 

76.0 

117.0 

1IS:8 

234.0 
273.0 
312.0 
351.0 
390.0 
429.5 
46  6.0 
5C7.0 
54t.O 
585.0 
62*.  0 
663.0 
7C2.0 
741.0 
7£  0. 0 


SOIL 

MODULUS 

(K/sa  ik) 
.00 
»:!f 

46.  eC 
70. 2C 

i i E8 

140. 40 
163. EC 
187. 2C 
21C. 60 
234. OC 
257. 4C 
2E0.eC 

304.20 
327.60 
351. OC 
374. 4C 
397. EC 

421.20 
444. 6C 
46i. CC 


SOIL  RESISTANCE  RILE  A  DEFl. 


PILE 


AND 


ALLOW. 
(a /Ik) 

.0 

.0 

820.3 

WM 

1640.6 
1914. C 

2137.4 

2460.9 
273*. 3 

3007.5 

3281.1 
355*. 6 
3326.0 
4101.4 

4374.9 
4643. 3 

4921.7 

5195.2 

5466.6 


ACTUAL 

(K/2N) 

.0 

.0 

*1.4 

-1.8 

-1.5 

-.6 

-.2 

* 

•  a. 

.5 

.5 

.4 

.2 

.1 

-:8 

-.0 

-.0 

-.0 

-.0 

-.c 

.0 

.0 


DEFL  SLOPE 
UN)  (RAD) 


-3.614 

-.064 

-.060 

-.038 

-.021 

::88! 

.002 

.003 

.003 

.002 

.001 

.000 

.000 

-.000 

-.000 

-.000 

-.000 

-.000 

-.000 

.000 

.uDO 


-.009 

::88! 

::88 l 

::88S 

-.000 

-.000 

.000 

.000 

:888 
.000 
.000 
.000 
-.000 
-.000 
-.000 
-.6*0 
-.coo 
-  .ouc 


MOMENT 

(2N-K) 


Shear 
(k  ) 


0. 

170c. 9 

-541. 

1  71  c  .0 

-4421. 

1766  .3 

-8301. 

U31.7 

10838. 

1 c! 6 .8 

-9792. 

1916.9 

-7496. 

1  927.3 

-4870. 

1916.8 

-2577. 

1  902.0 

-938  . 

16*4.4 

1  ^  « 

1 <70 .4 

418. 

1o61.5 

476. 

1  65  7.3 

369. 

1656.2 

US: 

H5c.9 
1 <56.0 

23. 

1  <5  9 . 1 

-11. 

1  85  9.8 

-19. 

1860.1 

-13. 

1 e6C  .2 

-4. 

1660.1 

0. 

166C.0 

DOLPHIN/ SOIL  LOADS  AND  DEFORMATIONS  AT  TIME  * 


PALE 

.93586  SECONDS 


El 


BENDING 


SHEAR 


*  I 

Hi: 


ALLOWABLE 

(KSI) 

23.60 

H:fS 

23.60 

iI:IB 

23.60 

23.80 

ij:E8 

23.60 
23.60 
23.80 
23.80 
23.30 
i  3.  eo 
<3.80 
--  0 
0 
0 
0 


11:1 

il:i 


AC  TUAL 
(KSI) 

-5.08 

-41.54 

-78.00 

-1  Cl. 64 

-92.02 

-70.44 

-45.76 

-24.21 

-8.81 

.13 

3.93 

4.47 

3.47 
2.06 

.94 

.22 

-.11 

-:?! 

-.04 

.00 


ALLO.ApLE 
(KSI  ) 

14.40 
14.40 
14.40 
14.40 
14.40 
14.40 
1  *  .  4  0 
14.40 
14.40 
1  *.40 
14.40 
14.40 
14.40 
14.40 
14.40 
1  *  •  4  C 
14.40 
n.40 
14.40 
14.40 

14.45 


ACTUAL 
(KSI  ) 

200.18 
<05  .80 
213.42 
219.85 
223.58 
224  .57 
223 .57 
221  .62 

216  .90 
216  .40 
2U  .28 
2 1 6  .36 
<16  .49 
216  .c2 
21e  .70 
216  .74 
<1e  .75 
216  .74 
21c  .72 


C0M51NED 

STRESS 

RATIO 


193.458 

!?!:??? 

237.362 

244.940 

246.166 

242.979 

237.875 

111:8!? 


_  !7 .03  5 
226.027 

226.072 

226.299 

226.465 

226.551 

226.567 

111:131 
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MkE  12 


mt  0  S  /SOIL  LOADS  AND  DE  f  ORPA  T  lOkS  AT  TIKE  ■  .93SE6SE  CONDS 


DEPTH 

RELOU  SOU 
A.L.  MODULUS 
(INI  (K/SO  IN) 


SOIL  ASSISTANCE  A JLE  5  AE'L. 


PILE 


AND 


TOP 


.00 

23:?g 

46.  EC 
TO. 20 

11$!&S 

140.40 

163.60 
1C7.20 

210.60 
234.00 

257.40 
260. EC 

3 04.20 

327. 60 
351.00 

374.40 

397.60 

421.20 
444. tC 
466.00 


allow. 

(K  /IN) 

.0 

273!$ 

546.9 

620.3 

i  §1  ? :  i 

1640.6 
1914.0 
2167.4 
2460.9 

2734.3 

3007.7 

3261.1 

2554.4 
2826.0 

4101.4 

4374.5 
4646.3 

4921.7 

5155.2 

5466.6 


ACTUAL 

(K/IN) 


•life,  st?SI) 

•3.509  • .009 

::  i*  ::88? 

•.038  -.000 


-.020 
-.008 
-.001 
.002 
.003 
.002 
.002 
.001 
.000 
.000 
-.000 
—  .  0  0  0 
-.000 
-.000 
-.000 
-.000 
.000 
.000 


.000 

.000 

.000 

m 

.000 

.000 


.out 

.000 

.000 

.000 

.000 

.000 

.000 


iokent 

(1N-K 


K) 


0. 
-571. 
-4691. 
-8411. 
-10811. 
-5706. 
-7394. 
-4780. 
-2511. 
-899. 
3 1  • 
422. 
474. 
2  6  4  . 

i  is. 

57. 

22. 

-12. 

-19. 

-13. 

-4. 

0. 


SMEAR 

(k) 

170t.» 
1  71 7.9 
1  76  5.4 
162  5.6 
1883.4 

1514.3 
1  522.1 

1512.2 

1856.4 
1 t7a.9 
1e££.1 

1 656.4 

1852.2 

nu:i 

1653.1 

1854.2 
1854.9 
1 o5  5.2 
1 c5  5 .3 

1655.2 
1  65  5.  C 


P  A  6E 

DOLPHIN  / SOU  LOADS  AND  DE  FORMATIONS  AT  TINE  *  .52  586  SECONDS 


83 


SENDING 


SHEAR 


lur  .V 

546.0 
565.0 
624.Q 
663.0 
702.0 
741.0 
7e0. 0 


ALLOWABLE 

(KS1) 

11:18 
23.60 
23.  80 

11:18 

23.60 

23.80 

13:18 

23.60 

23.80 

11:18 

23.60 

23.80 

11:18 

23.60 

23.60 

23.60 


AC  1UAL 
(KSI) 

-5.13 
-44.06 
-79.04 
-101.55 
-91.21 
-69.46 
-44.92 
-23.60 
-6.45 
.25 
3.97 
4.4  5 

J.*2 

2.04 

.91 

.21 

-.11 

-.16 

-.12 

-.04 

.00 


AL  4  0  »A  cL E 
(KSI  ) 

14.40 
14.40 
14.40 
14.40 
14.40 
14.40 
1  *  .  4  0 
14.40 
14.40 
14.40 
14.40 
14.40 
1  *  .  4  0 
14.40 
14.40 
14.40 
14.40 
14.40 
1*. 40 
14.40 
14.40 


A  C  1  U  A  0 
(KSI  ) 

200,16 
205  .70 
213.18 

219  .44 
223 .05 
lei  .96 
22  2  .92 

220  .56 

«>:If 

216  .30 
215.62 
21  5  .71 
215 .78 
21  5  .52 
216  .04 
lie  .12 
216  .16 
216 .17 
2U  .16 
216  .14 


COMBINED 

STRESS 

RATIO 


193.59c 

205.904 

222.479 

236.302 
243.766 
244.796 
241.535 
236.445 
231.468 
227.756 
225.765 
224.810 

224.875 
225. ICO 

fl:SEI 

225.302 
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f  * 


MCE  li 


PILE  •  6  /SOIL  LOADS  AND  DE FORMATIONS  AT  TIKE  >  .V3586S E CONDS 


DEATH 

BE  LOW  SOIL 
N.L.  MODULUS 
UN)  U/SC  IN) 


76.0 

117.0 

156.0 

195.0 

234.0 

IP-8 

35  1.0 
390.0 
A  Z  9«  Q 

tm 

546.0 
565. Q 

624.5 

«i:8 

741.5 
75  0.0 


SOIL  DES1STANCE  PILE  6  DETL. 


PILE  6  P  AND  V 


140.40 

210. eC 

jj):28 

$82:18 
327.  60 
3*1.00 

374.40 
397. EC 
421.20 

46U  E8 


ALLOW. 

U/IN) 

54  6.9 

<8!il 

1640.6 
1914.0 

2187.4 
<46 j.  9 

!B1:» 

!if2:2 

3826.0 

4101.4 
4374.9 
4646.3 

4921 .7 
5195.2 
5468.6 


ACTUAL 

(K/1N) 


DEAL  SLOPE 
UN)  UADI 


MOMENT 

UN-K) 


SHE  AR 

1706.9 
1  70  6.9 
170c. 9 
1  708.9 
170c. 9 
1  708.9 
1  706.9 

1 708.9 
1 70c. 9 
1  706.9 
1  706.9 
1  706.9 
1  706.9 

1 706.9 
1  70c. 9 
1706.9 
1  706.9 
1  706.9 
1  706.9 
1  708.9 
1  706.9 
1  706.9 


DOLPHIN  / SOIL  LOADS  AND  DE'OAMAUONS  AT  TIME  ■ 


.93586  SECONDS 


DEPTH 
BELOh 
M.  L  . 
(IN  ) 


.0 

«:8 

117.0 

1  56 . 5 

195.5 

2  34.0 

2  73.0 

351*8 

3  90.0 
429.0 

468.5 

507.5 
5  46.0 
5{5.0 
624.0 
6e3. 5 

\m 


BENDING 


SHEAR 


ALLOWABLE 

(RSI) 

23.80 


AC  TUAL 
(KSI) 


Hill 


ALLOhAoLE 
(KSI  ) 

14.40 

14.40 

14.45 

14.40 

14.40 

14.45 

14.40 

14.40 

14.40 

14.40 

14.40 

14.40 

14.40 

14.45 

14.40 

14.40 

14.40 

14.45 

14.40 

14.40 

14.45 


actual 

(KSI) 

199.1 
199.1 
199.1 
199.1 
199.1 
199.1 
199  .1 
199.1 
199  .1 
199  .1 
199.1 
199.1 
199  .1 
199.1 
199.1 
199.1 
199.1 
199 .1 
199.1 
199  .1 
199  .1 


COMBINE  D 
STRESS 
RATIO 


191.193 
191.193 
191.193 
191.19! 
191.193 
191.19! 
191.19! 
191.193 
191.193 
191.19* 
191.193 
191.193 
191.19 J 
191.195 
191.193 
191.19* 
191.195 
191.195 
191.195 
191.193 
191.193 


- 


1 


mt  se 


MILE  •  7  /SOIL  LOADS  AND  DE F  ORMAT IONS  AT  TIME  ■  .93566$ E CONDS 

DEPTH  SOU  RESISTANCE  MILE  7  OEU.  MILE  7  «  AN  D  » 

DEcOW  soil  - - - —  - - - - - - - - 

M.L.  MODULUS  ALLOW.  ACTUAL  DEFL  SLOPE  MOMENT  SHEAR 

CIS)  (K/SG  IN)  (K  /  IN)  (K/1N)  (IN)  (DAD)  (IN-K)  (ft) 

TOM  .CC  .0  .0  3.509  .009  Q.  170c. 9 

.0  .00  .0  .0  .06!  .001  971.  1(99.8 

39.0  23. AO  273. A  1.A  .059  .00  1  4691  .  U52.I 

76.0  46.  8 C  Sac. 9  1.6  .038  .000  6A11.  1586.2 

11  7.5  70.  20  82  0.3  1.A  .020  .000  1061  1  .  1  53A. A 

ISe.Q  93.60  1093.7  .8  .008  .000  9706.  1503. A 

195.0  117. OC  1367.1  .2  .001  .000  7394  .  1A95.7 

23. .0  1 A  0. A  0  1640.6  -.3  -.002  .OuC  47*0.  1  50a. 5 

273.0  163. 60  1914.0  -.1  -.003  .000  2511.  1521.3 

312. 0  167. 2C  2187. A  -.5  -.002  -.000  899.  15I6.8 

351.0  210.60  2460.9  -.A  -.002  -.Out)  -31.  1352.7 

390.0  23A. 00  2734.3  -.2  -.001  -.000  -422.  1561.4 

429.0  257.40  3007.7  -.1  -.000  -.000  -474.  1565.5 

46c. 0  260.60  3281.1  -.0  -.000  -.000  -364.  1  566.4 

507.0  304.20  5554.6  .C  .000  -.000  -218.  1565.8 

54  c.  0  327.  60  3  82  6 • C  .0  .000  -.000  -97.  1  564.6 

565.0  351.00  4101.4  .0  .000  .000  -22.  1563.6 

624. 0  374. 4C  4374.9  .0  .000  .000  12.  1562.9 

663.0  397. 6C  464e.3  .0  .000  .000  19.  1562.5 

702.0  421.20  4921. 7  .0  .000  .000  13.  1562.5 

741.0  AAA. 6  C  5195.2  -.0  -.000  .000  A.  1  562.6 

760.0  466. OC  546c. 6  -.0  -.000  .COO  0.  1562.7 


MAGE  87 

tULFHJN/SOlL  LOADS  AND  DEFORMATIONS  AT  TIME  *  .93586  SECONDS 


DEPTH 
EtLOw 
P..L  . 
(IN) 

.0 
39.0 
78.  C 
117.0 
156.0 
195.0 
234.0 
2  73.0 
312.0 
351.0 
390.0 
*29.0 
*  e6 . 0 

111:8 

|  cl :  8 

7i0!c 


BENDING 


SHEAR 


ALLOWABLE 

(KSI) 

23.60 
23.60 
23.60 
23.80 
*3.60 
|  3.  £  0 
23.60 
23.60 
23.60 
23.60 

i?:io 

23.60 

23.80 

23.60 
’3.80 
:3.eo 
'3.60 

13.60 
J3.  80 
23.80 


actual 

(KSI) 

9.13 

44.06 

79.04 

101.59 

91.21 

69.46 

44.92 

23.60 

6.45 

-.24 

-3.97 

-4.45 

-3.42 

-2.0* 

-.91 

-.21 

.11 

.1c 

.12 

.0* 

.00 


ALLOWABLE 
(KSI  ) 


actual 

(KSI  ) 


COMBINED 

STRESS 

RATIO 


1  4 

.40 

196 

.06 

189 

.565 

1  4 

.40 

192 

.53 

180 

.605 

1* 

.40 

185 

.05 

166 

.457 

1  4 

.40 

176 

.78 

156 

.408 

1  4 

.40 

175 

.17 

151 

.811 

14 

.40 

174 

.27 

149 

.379 

1  4 

.40 

175 

.30 

15C 

.069 

1  4 

.40 

177 

•  26 

152 

.525 

1  4 

.40 

179 

.30 

155 

.393 

1  4 

.40 

180 

.91 

157 

.*50 

14 

.40 

181 

.93 

159 

.779 

1  4 

.40 

182 

.41 

160 

.6*2 

14 

.40 

182 

.52 

160 

.79  7 

14 

.  4  U 

182 

.44 

1  6  C 

.601 

1  4 

.40 

182 

.30 

160 

.313 

1  4 

.40 

152 

.18 

1  6  C 

.066 

14 

.40 

162 

.10 

15* 

.924 

1  4 

■  40 

162 

.06 

159 

.858 

1  4 

.40 

18c 

.05 

159 

.841 

1  4 

.40 

18c 

.07 

159 

.86  1 

14 

.40 

162 

.08 

159 

.862 

174 
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P!L(  *  6  /SOIL  LOADS  AND  DEFORMATIONS  AT  TIME  *  .9  3  5  8  6  S  E COMDS 


DEPTH 
BE  LON 

SOIL 

RE  SI  STANCE 

pile  e 

DfcFL  . 

PILE  6 

M  AN  l 

M  .1. 

MODULUS 

ALLOW. 

ACTUAL 

DE  FL 

SLOPE 

MOMENT 

SHJAP 

(IN) 

(K/SC  IN) 

(A /IN) 

(K /IN) 

(IN) 

(RAD) 

(1N-K) 

TOP 

.00 

.0 

.0 

3.614 

.009 
.00  1 

0. 

1  70  c.  9 

•  0 

,  *cc 

.0 

.0 

.064 

541. 

7c99.7 

39. d 

23.4  C 

273.4 
54  6 . 5 

1.4 

.060 

.001 

4421  . 

1 c51.5 

7  o.  0 

46.80 

1.6 

.038 

.00  1 

8301  . 

1  55  6.0 

11  7.0 

70. 2C 

82  0.3 

1.5 

.021 

.000 

10638. 

1 530.9 

15e.O 

93. 6C 

1053.7 

.8 

-.009 

.000 

9792  . 

1  49  t  .5 

195.0 

117. 00 

1367.1 

.2 

.002 

.000 

7496  . 

1  490.4 

23*. 0 
27  i.  0 

14C. 4  C 
163.60 

1640.6 

1  91  4 .0 

-.3 

-.5 

--•M 

.000 

.000 

4870. 

2577. 

1  4  9 1 . 9 
1 51 5.7 

312.0 

1  8  7 .  2  C 

2167.4 

-.5 

-.003 

-.000 

938  . 

1 553.3 

35  1.0 

210. tC 

2460.5 

-.4 

-.002 

-.000 

-14  . 

1  54  7.4 

350.0 

234.00 

2734.3 

-.001 

-.CuC 

-418. 

1 55c.2 

<.25.0 

257.40 

3007.7 

-.1 

-.000 

-.000 

-476  . 

1560.5 

A  £  c  .  0 

2  6  0. o  0 

3261.1 

*•  •  0 

-.000 

-.000 

-369. 

1 56  1  .5 

507.0 

304.20 

3  55  -  .6 
3626.0 

.0 

.000 

-.000 

m: 

1 560.9 

546.0 

327. cO 

.0 

.000 

-.ouc 

1  55  9.7 

585.0 

351.00 

4101 . 4 

.0 

.000 

.000 

-23. 

1 556.6 

62-. 0 

374.40 

4374.5 

.0 

.000 

.000 

'  a 

• 

1  55  7.9 

665.0 

397. BO 

4646.3 

.0 

.000 

.ooc 

1  -  . 

1  55  7.6 

702. C 

421.20 

4521.5 

.0 

.000 

.coc 

13. 

1  55  7.5 

74  1.0 

444.60 

5195.2 

-.0 

-.000 

.000 

4  . 

1  55  7.6 

78  u.  0 

468.00 

5466.6 

-.0 

-.000 

.OdC 

0. 

1557.7 

PA»E  65 

DOLPHIN/SOIL  LOADS  AND  DEFORMATIONS  AT  TIME  *  .935E6  SECONDS 


depth 

dENDINb 

SHEAR 

COMBINED 

M.  L  . 

ALLOmASLE 

actual 

ALLO-AdLE 

actual 

RATIO 

(IN) 

(AS1) 

US1) 

(A  SI  ) 

(  AS)  ) 

.0 

23.  80 

5.06 

1  -  .40 

1 9  o .05 

189.36  5 

39.0 

76.0 

11:18 

41.54 

78.00 

1  -  .  4  0 
14.40 

192  .42 
15  4  .60 

117.0 

23.80 

1 01 .84 

14.40 

176  .33 

1  57.72  6 

156.0 

23.80 

92.02 

14.40 

17-  .£4 

1 >0.953 

195.0 

23.60 

70.44 

1  -.40 

173  .66 

1  48.39  0 

2  34.0 

23.  60 

45.76 

14.40 

174  .65 

1  49.02  4 

2  73.0 

23.  80 

24.21 

14.40 

176  .61 

151.431 

212.0 

23.  £P 

8.81 

14.40 

1  7 1  .c6 

; \li:W 

351.0 

23.60 

23.  60 

-.13 

1  -  .40 

180.29 

390. 0 

-3.93 

14.40 

161  .35 

155. 7J1 

4  29 .0 

23.  60 

-4.47 

14.40 

181  .c2 

159.616 

4  68 . 0 

23.  60 

-3.4  7 

14.40 

181  .94 

1  5  9 . 7  6  6 

5  07 .0 

23.60 

-2.06 

14.40 

1S1  .67 

159.596 

5  46.0 

23,60 

-.9- 

14.40 

181  .73 

159.307 

5c5.0 

23.  ED 

•#2i 

14.-0 

181  .61 

159.  Oe  1 

624.0 

23.  60 

.i  i 

14.40 

181  .5! 

158.913 

$8:8 

23.  60 
23.80 

.16 

.12 

14.40 

14.40 

181  .49 
181  .48 

118:15$ 

741 . 0 
760.0 

£1:18 

:8o 

14.40 

14.40 

181  .49 
181  .50 
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RILE  •  t  / SOIL  LOADS  AND  DEf ORRATIONS  At  TIRE  • 


.  SOIL 
R.lt  MODULUS 
(IN)  (K/SO  IN) 


.  GC 

!3*‘I 

*6#  oO 
70.20 

,H:86 

140. AC 
1(3. 60 

§iS 

257. 40 

227. (C 
351. OC 
274. 4  Q 
397.60 
421.20 
444.(0 
4(6.00 


SOIL  RESISTANCE  RILE  *  liU.  RILE  0  R  AN S  V 


234.0 

II 

429.5 
4(c.g 

507.5 
54  6.0 
5£  5. 0 
624.  g 
6(2.0 
702.0 
741.0 
760.0 


H.4 
.9 
.3 
.7 
.1 

1640.6 

1914.0 

JU7.4 

<4(0.9 

2734.2 

3007.7 

3826.0 
4101.4 
4374.9 
4(46.3 
4921.7 
5195.2 
54(6. ( 


ACTUAL 

U/IN) 


MU.  MKi.  MRS. 

•009  0. 

.001  971 • 

•CC 1  4(91. 

•  Di/  0  14 11# 

•COO  10C1 1 • 

m  !Hi 

.000  2511. 

irn  -111: 

-.000  -474. 

*•0^0  •• a 

-.ooc  -Sis. 

-.000  -97. 

•PS  !i: 

.0 Jw  4  . 

.000  0. 


tftlf 

tit:) 

534.4 

$1:? 

504.5 

m 

Hr/ 

5(5. 

Ill: 

5(4.6 

5(3.6 

II!:! 

562.5 
5(2.6 
5(2.7 


DOLPHIN/SOIL  LOADS  AND  DE  f ORHAT lOhS  AT  TIKE  >  .93566  SECONDS 


DEPTH 

BlLOw 

M.L. 

UN) 

.0 

S:8 

\ll:i 

155.0 

224.5 

273.0 

:8 

350.0 

429.0 

II; 

(24.  C 
5(3.0 
1 02.0 
7*1.5 
760.0 


BENDING 


SHEAR 


ALIO.  AbLE 
US1) 


23.60 

23.60 

mi 

23.60 

23.60 


ACTUAL 

USD 

9.13 
44.06 
79.04 
101.59 
91.21 
(9.4  e 
44.92 
23.60 
§.*5 
-  .2  * 
-3.97 
-4.4  5 
-3.42 
-2 .0* 


ALL0.A6LE 
(RSI  ) 

1-..A0 

1*.*0 

14.40 

14.40 

14.40 

14.40 

14.40 

14.40 

14.40 

14.40 

14.40 

14.40 

14.40 

14.40 

14.40 

14.40 

1*.*C 

14.40 

14.40 

14.40 

14.40 


ACTUAL 
(RSI  ) 

«|  :S| 

185.05 
ITe.79 
175.17 
174  .<7 

175.20 
177.26 
179. *0 
1S0.fi 
191 .93 
182  .41 
192.52 
192  .44 
162 .30 
182  .18 
192.10 
i 52 .06 
182.05 
182.07 
182.08 


COREINED 

STRESS 

RATIO 


169.565 

1*9.579 
ISC. 089 
152.525 

ili 

160.(42 


159.|41 
159.5(1 
159.862 


TABLE  4 


MbE  ti 


OUTPUT  Of  BYNAMlC  BATA  AT  THE  POINT  Of  IMPACT 


STEP 

NO 


4 

s 

i 

! 


TINE 

(SCO 

:?T9£ 

ill?! 

•  5  S  49 
.TOH 

:!HS 


BE  fL 
(IN) 


1.41 

!':il 

m 


VELOC1 Tf  ACCELERATION 
(IN/SEC)  (1N/SEC/SIC) 


l:| 

4.25 
3.11 
1*84 
•  47 
••71 


-2:SS 

-4.94 

-7.12 

•a.i! 

•10.44 

■ii.fi 

•11.67 

•11.78 


fOBCC 
(  K  ) 


1.00 

i«:j& 

ISel: 

!f  :  e 

Kil:i 


spring  k 
U/ IN) 

467.04 

a?:K 

iS?:8i 

ii?:8 


PAGE 


OUTPUT  Of 


KINETIC  Afct  POTENTIAL 


ENERGY  fOR  STSTEP 


STEP  T1P.E 

NO 

(SEC. ) 


KINETIC 
ENERGY 
( 1N-k ) 


potential 

ENERGY 

(1N-K) 


TOTAL 
PE  ♦  KE 
(IN--K) 


1 

l 

4 

5 
t 
7 
t 


.0  ODC 

.1170 

■Am 

•  4  c79 
.5649 
.70'  i 
.9  1  c9 


304  e . 

w?*- 


I  T  0  *  « 

1209. 

703. 

244. 

U. 


|8if : 

flit: 

sgli: 
58H- 


e . 


TOTAL  KINETIC  ENERGY  Of  SHIP  ■ 
TOTAL  POTENTIAL  ENERGY  Of  G0LPM1N  ■ 

ERROR  • 


88! 


346.  K-IN 
,  547.  K-IN 
.14  PERCENT 


•••••  MAXIMUM  (EfLECTIGN  AT  ML 
•  •••  * 


084  INCHES 


•  •  • 
•  •  • 
•  •  • 


fACTOR  Of  SAfETY  ■  180.016 


93 


177 


I 


NCISNT  Of  SHIP 
__  JI tOC  ITT  or  SN1M 

lcnstn  or  oolmnin  aoove  ml 


ancle  or  mass i vf  ?axlu£e 

..iiHMSi'isMa 

allow aolc  strain 


12500.00  TONS 

!H8  HS' 


21000*00  RIMS) 
A* *8  IMS) 


*W*SW.S**T 
..i60  r EET 


0  SN/IN 


5 


2 


J79 


*0 


PILE  f  S  /SOIL  LOADS  AND  DEFORMATIONS  AT  TIN!  •  .43S97SECONRS 


U.  DEPTH 

BELOW  SOIL 
l.  N.L.  MODULUS 
if  (IN)  (K /SO  SN> 


j,  56 

■ ;  ,Si 

5-  180 

116 
52 
68 
24 
60 
96 
*32 
.  (68 
•  JO* 
K  $*0 

iil 


resistance  milk  S  defl. 


allow. 

(K/IN) 


actual 

IK/IN) 


REEL  SLOPE 
<2N>  (RAD) 


MKE  5  M  AND  V 


MOMENT 

CIN-O 


•4.  DO 
•6.40 
108.00 
if V .60 
151*20 

1»:» 

I1T:S8 

259.20 

280.80 

302.40 
324.00 

Isa  I io 

410.40 
432.00 


1630.7 

1663.6 


DOLPHIN/SOI 


depth 

BELOW 
M  .  L  • 
(IN) 

.  »° 

?!:8 

106.0 

I60l8 

151:8 

268.0 

324.0 

360.0 

3V6.0 

432.0 

I8S:8 

5*0.0 

ii|:8 

6b*:8 

720.0 


BE 

ALLOW* 
(K  SI 
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PILE  i  8  /SOIL  LOADS  AND  DEFORMATIONS  AT  TINE  > 


.43897SECONDS 


DEPTH 

•ELOh  SOIL 
M.L.  MODULUS 
(IN)  (K/SO  IN) 


SOIL 


RESISTANCE 


PILE  8  REEL. 


PILE  8 


AND 


ALLOU. 
(K/1N ) 


ACTUAL 
(K/ IN) 


defl  slope 

(IN)  (RAD) 


MOMENT 

(IN-K) 


SHEAR 

(K) 


TOP 

36:8 


iU:8 

144.0 

180.0 

216.0 


•  00 
»:88 


::18 

>.40 


43, 
64, 
>6,  . 
108.00 
129.60 


111:8 


Jae. . 

IM 


--V.8 


194.4g 


432, 
468.0 


)40.( 

M:  8 


646.  g 


216. OC 
237.60 
25V. 20 
280.80 

1^:18 


KIM 


684,  _ 
720.0 


MW8 


410c 
432.00 


4193.; 
4426. 
4659. ‘ 


0 

4 

1.507 

loll 

:8iZ 
.01  6 
•  035 
_  nn  i 

6 

5 

1 

\ 

•a  Uy  1 
::8  2  - 
::8Sf  : 

6 

5 

3 

1 

::8SJ  : 

J 

■m : 

8 

:888 

8 

0 

:m 

-.000 

005 

88; 


0. 

6581: 


14!  . 

14252. 
11708. 
6369. 


588 

)00 


1518: 


783. 

-214. 


000 


-619. 

-654. 


-510. 

:!»: 


000 


•21: 

U: 

0. 


1984.5 

1973.4 
1914.0 

1H!:| 

1682.0 

16*4.5 

1701.9 

1724.9 

1746.5 

1762.9 
1773.2 

1778.1 
1779.4 
1776.7 

1777.1 

will 

174.  r 


H77t:8 

1774.2 
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.43897  SECONDS 
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pEPTH 

BELOW 

uLn5 


BENDING 


SHEAR 


*L«S}5LE  *KM  *LttMw 


.0 
36.0 
72.0 


|44.< 

180.0 

216.0 

252.0 

288.0 

324.0 

360.0 

396.0 

432.0 


B:I8 

23.80 

B:  18 

23.80 

23.80 

23.60 

23.80 


1:2! 


56. 
105.83 


14:t8 


tt8:8l 


23.80 

13.80 


13 

110.02 

78.83 

46.49 

24.04 

7.36 

-2.01 


Il:§8  :I:fI 


ii: 


80 

80 


-4.79 
-3.01 
-1.1 


23.80 
23. 80 


-3:|9 


14 
14  .40 
14  .40 
14.40 
14.40 
14.40 
14  .40 
14.40 
14  .40 
14  .40 
14.40 
14.40 
14  .4  0 
14  .40 
14.4 
14  .4 
14.4 
14.40 
14.40 
14.40 


115:8* 
U3:i8 


COMBINED 

STRESS 

RATIO 


mill  m 

198.49  195 

195.98 


Hl:|8 

IB§:I8 


?*? 

.*391 
95.6|§ 


205.41 

lgt:W 


T89.8! 

W:IH 

195.806 

200.014 


203. 570 
206.114 


lor:ls 

181:89 

>06.77 

m 


n 


7.281 

!:!H 


>81:1? 

|06.i8 

m 


187 


4 


mu 


DOLPHIN/SOIl  LOADS  ADD  DEFORMATIONS  AT  TINE  •  .43897  SECONDS 


BERTH 
BELOW 
H  •  L  • 
t  IN) 

36 1 S 
72.0 
108.0 
144.0 
180.0 
216.0 
►52.0 
*68.0 


460. 
3V6.0 
432.0 
468.0 

126:8 
tt!:r 


BENDINS 


SHEAR 


ALLOWABLE 

USD 

11:18 

23.80 

23.80 

23.80 

23.80 

23.80 

23.80 

23.80 

'  11:18 
23.80 
23.80 

m 

11:88 


actual 

U$I> 

-1.97 
•40.26 
-78.54 
•105,77 
-101.21 
•63.4 


.  j6 

•18.49 

■ :!! 
4.35 
4.64 


c3.8 


ALLOWABLE 
(K  $1  ) 

14  .4 
14.4 
1«.4 

12:88 
14.40 
14.46 
14  .4  0 
14.40 

1i:t8 

14.40 
14.40 
14  .4* 

Ii:i8 

14.4- 
14.4 
14.4 


ACTUAL 

(ksi> 

111:8? 


\M\ 

254.51 


COMBINED 

. i??Sss 


112:1?  HIM 


►50.22 

►49.78 

149.67 

249.74 

249.87 

118:88 

Hi:!! 


[15:281 

192.611 
09.963 
_ 20.909 
325.035 

lfl:lo2 

313.155 

|8I:|82 

302.143 
301 .083 
300.764 

189:«* 

111:811 


49 
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ZABLE  6 


MU  S2 


CUTOUT  0^  DTNANIC  OAT  A  AT  THE  O0INT  OF  IMPACT 


STEP 

NO 


TINE 

DEFL 

VELOC1TT 

ACCELERATION 

'IB' 

SPRINC  K 

(SEC) 

(IN) 

(IN/SEC) 

(IN/SEC/SEC) 

(K/IN) 

:?W? 

•  00 
•  60 

-i*:|l 

millf 

•  2195 

1.20 

3.57 

•2*. 61 

1*95.47 

•  3292 

1.4* 

•  59 

-29.62 

21*3.00 

1*95.47 

•  4390 

1.33 

-2.5* 

-27.36 

1964.55 

1495.47 

FACE 


53 


OUTFUT  OF  KINETIC  AND  POTENTIAL  ENERCT  FOR  STSTEH 


STEF 

NO 

1 

1 

A 


tine 

(SEC.) 

.0000 

.1097 

:il?l 


KINETIC 
ENERCT 
( IN-K) 

nil: 


POTENTIAL 

ENERCT 

(IN-K) 


3*9^ 

Ml: 


TOTAL 
FE  ♦  «| 
(IN— K) 

1523. 

1531. 

1  Ml: 


TOTAL  kinetic  ENERCT  OF  SHIP 
TOTAL  POTENTIAL  ENERCT  OF  DOLPHIN 

E  RROR 


1523.  k-IN 
15*3.  K-IN 
•1.30  percent 


**•«<  NAXINUN  DEFLECTION  AT  HL  • 


.111  INCHES 


•  •••• 
•  •••• 
•  •••• 


FACTOR  OF  SAFETT  •  139.609 
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EXAMPLE  4 


General 

The  purpose  of  this  example  la  to  present  the  computer  analysis 
of  a  bridge  cell  protective  system.  The  bridge,  es  shown  In  Figure 
19,  is  located  north  of  St.  Louia,  Missouri;  across  the  Illinois 
River  near  the  city  of  Pearl,  Illinois. 

As  described  previously  the  nethod  of  analysis  consists  of  a 
computer  oriented  dynamic  response  program,  which  can  analyse  various 
fender tag  schemes  on  single  dolphins,  dusters  of  cells. 

The  basic  theory  involves  matrix  formulation  of  interactive 
pilings,  attached  by  cross  mashers,  which  support  energy  absorbing 
fenders.  Soil  characteristics  can  be  designated  along  the  length 
of  the  embedded  pilings.  Isolated  dolphins  are  similarly  modeled, 
and  can  Include  wood  clusters  with  cabled  wrappings,  rigid  pile 
clusters  or  cells. 

In  general,  the  input  requirements  are  the  ship  tonnage,  speed, 
direction,  rigidity  of  supporting  elements,  cantilever  length,  en¬ 
ergy  characteristics  of  fenders,  soil  parameters  and  general  geo¬ 
metry  of  system.  The  output  information  includes  velocity  and 
acceleration  of  vessel  at  any  time  Interval  and  the  corresponding 
forces  and  deformations  throughout  the  system. 

BRIDGE  DESCRIPTION 

The  replaced  bridge  consists  of  a  367  ft.,  vertical  lift  steel 
truss,  which  will  provide  a  69'  vertical  clearance  to  the  shipping 
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« 


traffic.  The  previous  krl4|i ,  which  wi  a  awing  structure  had  a 
149'  dear  channel.  This  aaw  a  true  curs  will  provide  a  315  ft 
clasr  channel,  ae  shewn  la  figure  20. 

PROTECTIVE  CEIL 

la  order  to  protect  the  new  bridge  piers,  four  steal  cells, 
will  he  positioned  aaar  the  bridge  as  ahovn  la  Figure  2.  These 
cells  consist  of  steal  sheet  pllleg  (SI  sheets/cell)  with  a 
24**7  3/1"  d lane ter.  The  units  are  11.0  ft.  long  and  are  filled 
with  2300  psl  lean  concrete,  as  shown  in  Figure  21.  The  cell  will 
have  a  cantilever  length  of  34  ft,  if  the  onlstlng  river  hod  Is 
Maintained  and  41  ft.  for  the  dredged  river.  Ihe  vessel,  which 
will  inpact  the  cell,  was  assuwed  as  follows  and  dictated  by  ths 
USCC; 

Wt.  (tons)  Velocity  (knots) 

10,000  0.40 

1,000  1.40 
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CCHFUTP  IISPLTS 

a)  IjntM  Aailyud 

Am  kuic  iyitai  mt(  ena  lysed,  on*  which  consists  of 
only  the  infill  concrete,  end  the  other  the  eteel  ehell.  The 
cantilever  length  wee  changed  for  the  concrete  unit  In  order  to 
•ubIk^  the  effect.  The  haalc  nodel  ie  ehown  in  Figure  22,  end 
above  the  cantilever  length  of  the  cell  and  the  enbednent  length. 
Although,  the  concrete  will  not  he  acting  independent  of  the  eteel, 
the  effect  of  ice  atiffnoae  ie  generally  neglected  in  evaluating 

the  atrength  of  the  eteel  ehell.  It  wee  for  thie  reason  that  the 
region  of  the  concrete  aees  wee  aaainad. 

h)  Caae  Studlae 

Ae  ehown  in  Table  7,  five  case  eolutions  were  conducted. 
Casee  1  through  3,  consisted  of  only  the  27'  diene ter  concrete  aees 
and  cases  4  and  3  consisted  of  the  steel  ehell.  The  variations 
within  each  type  was  due  to  vessel  weight  and  velocity  and  canti¬ 
lever  lengths. 

c)  Conputer  Output 

Using  the  various  peraaeters  required  for  each  of  the 
five  ceeee,  a  coaputer  solution  was  obtained.  The  resulting 
output,  which  consists  of  a  description  of  the  input  peraaeters 
and  the  final  dynealc  data,  is  given  in  Table  9'. 

lamination  of  these  date  shove  that  the  eteel  call 
will  defora  a  aselaua  of  3.13  Inches  and  a  aanlaua  etreas  of  1.2 
hal.  A  auaaary  of  the  data  for  all  five  cases  is  shown  in  Table  a. 
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V.  UCOHMEMDATIONS 

The  computer  r espons*  of  the  1"  thlck-28'  round  itMl  coll 
Indicate*  that  It  will  perform  adequately  when  impacted  by  a  a  hip 
of  10,000.  T  (0.4  knot*)  or  1000. T(l. 4  knot*).  The  aaxlaua  de¬ 
formation  of  the  cell  la  3.83  inch**  and  develop*  a  maximum  steel 
stress  of  S.2  ksi. 
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TABU  7 

ANALYTICAL  STUDIES 


Cantilever 

Case  No.  Description  Length  (ft)  Ship  Details 


1 

Concrete  Mass 

36 

10,000T 

0.4 

knots 

2 

Concrete  Mess 

36 

1,000T 

1.4 

knots 

3 

Concrete  Mass 

41 

1.000T 

1.4 

knots 

4 

Steal  Shell  - 
thick 

1"  36 

1,000T 

1.4  knots 

5 

Steal  Shall  - 
thick 

1"  36 

10,000T 

0.4 

knots 

TABU 

8 

SUMMARY  OF  RESULTS 

CASE 

CONDITION 

DEFL 

(in) 

FORCE 

(kips) 

MOMENT 

(k-in) 

SECTION 

On3) 

STRESS 

(ksi) 

STRESS 

ULT 

(ksi) 

STATUS 

1 

cone. 

3.38 

1115.0 

522335. 

2.56  x  10* 

.204 

.400 

OK 

2 

cone. 

3.74 

1234.0 

578162. 

2.56  x  10* 

.226 

.400 

OK 

3 

cone. 

5.96 

772. 

398077. 

2.56  x  10* 

.155 

.400 

OK 

A 

cell 

3.83 

1206. 

564822. 

6.9  x  10* 

8.2 

36. 

OK  j 

S 

cell 

3.44 

1090. 

510322. 

6.9  x  10* 

7.4 

36. 

OK 

\ 
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BRIDCE  LOCATION 


FIGURE  19 
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CHAPTER  VII 


CONCLUSIONS 

The  result!  of  this  study  have  led  to  several  major  conclusions: 

1.  The  majority  of  tendering  systems  used  in  this  country  con¬ 
sist  of  pile  or  rubber  fenders  or  s  combination  of  the  two. 
These  systems  were  generally  designed  by  experience  rather 
than  by  detailed  energy  considerations  resulting  in  both 
over  and  under  design. 

2.  The  variety  of  tendering  systems  available  allows  design 
control  over  a  wide  range  of  stiffness  and  energy  criterion. 
Combining  several  systems  in  one  Installation  may  yield  a 
more  appropriate  design  than  a  homogeneous  system. 

3.  Wood  is  the  most  commonly  used  tendering  sMterlal  due  to 
its  high  fiber  strength  and  hardness,  its  resilence,  its 
relative  abundance  and  low  cost.  Whenever  wood  is  used  in 
the  marine  environment,  it  must  be  protected  by  some  treat¬ 
ment  preventing  borer,  termite,  and  ant  attack  as  well  ss 
reducing  the  abrasive  effects  of  sand,  silt,  and  ice. 

4.  Steel  sections  used  in  fendering  systems  must  be  heavily 
protected  against  corrosion  and  abrasion.  Shotcrete  and 
gunlta  have  been  used  in  the  past, but  the  development  of 
plastic,  acrylic,  or  resin  coatings  may  be  preferrable. 

Steal  sections  are  used  where  long  lengths,  low  displace¬ 
ment  ,  and  high  strength  are  required. 

5.  Concrete  structures  tend  to  be  massive  and  too  stiff  for 
many  vessels.  Rubber  or  timber  rubbing  etripe  are  necessary 
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on  exposed  concrete  feces.  The  concrete  nix  should  heve  s 
cement  content  between  6-1/2  secks/cu.  yd.  end  7-1/2  eecks/ 
cu.  yd.  The  sggregstes  should  be  grsded  for  msximum  density 
end  non-resctlve.  The  weter  content  should  be  the  lowest 
possible  to  provide  a  workable,  plastic  mix,  but  not  to  ex¬ 
ceed  six  gallons /sack  of  cement.  Type  V  or  Type  II  cements 
are  preferrable  and  three  percent  to  six  percent  entrained 
air  is  recommended  to  Increase  abrasion  resistance  and  work¬ 
ability.  Adequate  vibration  is  necessary  to  ensure  concrete 
strength.  Minimum  depth  of  covering  over  reinforcement  should 
be  three  Inches. 

Complete  detailed  design  of  a  fender  system  and  Its  support 
structure  requires  the  use  of  a  rigid  mass  and  spring  model. 
This  process  would  be  extremely  difficult  without  the  use 
of  computers.  This  system  is  currently  being  developed. 

In  lieu  of  a  computer  package,  hand  calculations  may  be  based 
on  the  following  design  parameters:  epproach  angle  and  veloc¬ 
ity,  ship  displacement,  draft  and  beam,  general  configuration 
of  the  support  system  (open,  partially  open,  closed),  an  as¬ 
sumed  stiffness  between  the  fender  and  support  structure,  Im¬ 
pact  point,  and  the  stiffness  and  energy  absorption  character¬ 
istics  of  the  fender.  These  calculations  do  not  account  for 
the  distribution  among  piles  of  horlsontel  loads  on  a  piling 
system.  Nor  do  they  consider  the  effects  of  soil  deformation 
and  the  resulting  shift  In  the  fixed  point  of  the  pile  system. 
They  represent  an  improvement  over  past  design  methods  and 
are  generally  adequate. 
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8.  The  factor  of  aafcty  concept  should  not  be  applied  to  fender 
design  as  eoae  arbitrary  multiplicative  conatant.  The  system 
should  be  designed  for  a  range  of  conditions  with  selection 
based  on  the  moat  serious  conditions.  The  non-linear  neture 
of  aost  of  the  stiffness  curves  will  generally  Increase  the 
ultimate  energy  of  the  system  even  further.  Conditions  which 
exceed  the  design  parameters  may  result  in  failure  and  eh 

be  considered  accidental  occurrences,  especially  impact  veloc¬ 
ity. 

9.  Future  research  should  deal  with  new  fendering  systems,  corro¬ 
sion  protection  of  steel  and  concrete,  development  of  computer 
simulation,  and  design  velocities. 

10.  The  above  mentioned  future  research  will  also  include  a 
study  of  the  rotational  effect  of  the  vessel  after  vessel 
impact.  This  would  also  include  the  shock  absorbing  effect 
of  the  hull  aovement. 
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CHAPTER  VIII 


RECOMMENDATIONS  FOR  FUTURE  RESEARCH 

It  is  obvious  froo  the  completed  study  that  present-day  bridge 
protection  systems  and  devices  are  inadequate.  In  other  words,  they 
are  either  under  or  over-designed.  This  is  attributed  to  the  fact 
that  tankers,  containerships ,  and  barge  tows  have  increased  in  sub¬ 
stantial  size  without  a  proportional  change  in  design  criteria  or 
innovative  ideas  in  the  bridge  protection  area. 

Future  research  should  center  on  the  design,  analysis,  and 
laboratory  modeling  of  new  and  innovative  ideas  in  fendering,  pro¬ 
tective  cells  and  shear  fences.  This  type  of  research  should  be 
incorporated  into  a  Phase  II  study. 

With  today's  inadequate  bridge  protective  systems  and  devices 
it  would  be  appropriate  to  select  a  specific  bridge  which  has  re¬ 
ceived  considerable  publicity  because  of  its  history  of  collisions, 
damages,  and  delays  to  navigation  and  conduct  a  model  test  in  a 
laboratory.  A  typical  example  would  be  the  Southern  Pacific  Trans¬ 
portation  Company  bridge  across  the  Atchafalaya  River  at  Berwick 
Bay,  Morgan  City,  Louisiana.  If  an  innovative  bridge  protective 
system  or  device  could  be  developed  through  a  model  study  for  such 
a  troublesome  bridge  as  Berwick  Bay,  then  the  results  of  this  study 
can  be  adapted  to  similar  projects  which  are  less  hazardous. 
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APPENDIX  I 


GENERAL 

The  following  pages  contain  tablet  and  figures  representing  the  etlffneas 
and  energy  characteristics  of  particular  fanders  at  given  deflection  levels. 
The  energy  tables  are  read  by  finding  the  fender  name  or  site  designation  in 
the  left  hand  column.  The  deflection  levels  are  shorn  across  the  top  of  the 
tsbles  as  two  digit  numbers  representing  the  percent  of  the  maximum  deflection 
At  the  Intersection  of  the  row  and  colims  is  the  energy  value.  The 
units  of  the  energy  are  found  in  Che  right  hand  margin.  The  maxima  deflec¬ 
tion  (Aux)  is  expressed  in  inches  unless  otherwise  indicated.  The  curve  co¬ 
efficient  tables  are  read  in  a  similar  manner.  These  tables  represent  the 
coefficient  values  of  a  fitting  function  of  some  form  which  is  given  with 
each  table.  The  deflection  limits,  in  Inches,  for  which  the  function  applies 
is  found  under  "upper"  or  "lower  boundary"  as  appropriate.  If  more  than  one 
function  is  used  for  fitting,  they  are  indicated.  Finally,  stiffness  curves 
are  presented  for  all  fenders  and  are  used  to  verify  calculations  or  computed 
reaction  forces  or  stiffnesses  as  appropriate. 
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Table  I-A-l:  mucker  energy  table 


f 


f 

Goliath  10  20 

u 

o 

* 

o 

SO 

60 

70 

80 

90 

100 

*MX 

80 Ox  400 

174 

261 

434 

650 

865 

1216 

15.7 

E  -  K-in. 

lOOOx  500 

350 

521 

780 

1130 

1433 

2000 

20.5 

1200x  600 

350 

650 

870 

1303 

1738 

2170 

2610 

25.6 

~ 

1400X  800 

300 

475 

695 

950 

1390 

2000 

3475 

44.1 

\ 

1500x  800 

300 

475 

695 

1000 

1564 

2260 

3475 

43.3 

i 

1600X  800 

350 

520 

782 

1433 

2215 

3300 

4344 

44.5 

k  „ 

:  / 

1750x1000 

1216 

1650 

2260 

3130 

3910 

5213 

6342 

41.3 

•  / 

ISSOxIOOO 

1480 

1910 

2780 

3475 

4604 

5950 

8690 

41.7 

i 

2050x1050 

1650 

20 8S 

2867 

3736 

4865 

6973 

8690 

39.0 

T* 

Wing  Type 

170x  100 

4.0 

4.8 

6.6 

9.3 

13 

26 

SO 

2.26 

E  -  K-in/ 

?T. 

228x  139 

3.1 

5.0 

6.1 

8.5 

13 

26 

66 

4.04 

ft.  of 

f 

length 

Rubber  Buffer 

7.9 

12. 

20 

29 

37 

50 

66 

5.2* 

¥ 

cyl- axial 

21x10.5 

213 

230 

390 

565 

652 

825 

13.8 

E  -  K-in. 

»• 

18x  9 

209 

221 

326 

434 

539 

652 

13.8 

i 

15x  7.5 

110 

170 

217 

278 

374 

440 

12.2 

t 

12x  6 

55 

104 

110 

190 

217 

228 

10.2 

Shear 

200x  150 

11 

16 

22 

30 

39 

43 

8.26 

K-in  kip* 

•  • 

500x  250 

22 

35 

48 

61 

74 

96 

8.86 

6-horiton- 

300x  150 

30 

42 

55 

67 

87 

109 

8.66 

tal  dis¬ 

400x  150 

43 

56 

78 

96 

120 

152 

7.48 

placement, 

550x  200 

56 

78 

109 

140 

161 

220 

7.28 

Inches 

D-Fender 

4x  3.75 

3.3 

6.5 

10 

26 

53 

87 

3.0 

K-in. 

Bx  6 

6.6 

12 

26 

53 

106 

152 

3.94 

kips/foot 

lOx  8 

13 

27 

37 

65 

119 

205 

5.41 

12x10 

16 

40 

60 

115 

180 

265 

6.10 
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Table  I-A-2:  BARKER  CURVE  COEFFICIENT 


Goliath 

K  - 

a  ♦  bA 

or  , 

m 

a'  ♦  b 

•A  ♦  c’A2 

K  »  Kips  per 

inch 

boundary 

boundary 

a 

b 

lower  upper 

a' 

b’ 

c' 

lower 

upper 

800x  400 

6.20 

+  .10 

8.0  10.0 

24.54 

-3.30 

.156 

10.0 

16.75 

lOOOx  soo 

2.932 

♦  .071 

8.0  14.0 

36.58 

-4.20 

.152 

14.0 

21.20 

1200x  600 

7.0 

0 

8.0  17.0 

34.89 

-3.27 

.096 

17.0 

25.1 

1400x  800 

— 

— 

— 

2.248 

-  .074 

.003 

8.0 

39.4 

1500x  800 

— 

— 

- —  - 

3.188 

-  .084 

.003 

8.0 

39.4 

1600x  800 

3.50 

0 

8.0  18.0 

6.107 

-  .270 

.007 

18.0 

47.2 

1750x1000 

7.35 

0 

8.0  29.0 

24.08 

-1.17 

.020 

29.0 

39.4 

1850x1000 

8.40 

0 

8.0  29.0 

27.17 

-1.29 

.022 

29.00 

39.4 

2050xl0S0 

10.  SO 

0 

8.0  29.0 

41.08 

-2.13 

.037 

29.0 

39.4 

Wing  Type  K 

■  a  ♦  : 

bA  or 

-  a'  ♦ 

b*A  ♦  c'A2 

K  •  Kips  per  : 

inch  per 

foot 

boundary 

boundary 

a 

b 

lower  upper 

a' 

b’ 

c1 

lower 

upper 

170x  110 

_ _ 

___ 

_  — - 

11.73 

-19.57 

10.72 

.78 

2.00 

228x  139 

1.051 

♦  .349 

.75  3.15 

69.41 

-40.62 

6.12 

3.15 

4.2 

Rubber 

Buffer 

K  - 

t  ♦  bA  or 

m 

a'  ♦  b' A  ♦  c’A 

K  »  Kips  per  inch  per 

foot 

boundary 

boundary 

a 

b 

lower  upper 

a' 

b1 

c1 

lower 

upper 

4.0 

0 

.75  3.15 

5.25 

-  .820 

.134 

3.15 

5.50 

D  Bakker  cylinder  Axially  Loaded  K  *  Constant 

K  ■  Kips  per  inch 


k 

lower 

upper 

21x10.5 

8.6 

2.0 

11.8 

lBx  9 

7.3 

2.0 

11.8 

15x  7.5 

6.0 

2.0 

11.8 

12x  6 

5.0 

2.0 

11.8 
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*kaar  Pander 


R  ■  a  ♦  bi 


r- 

*. 

{■■■ 

a 

b 

boundary 
lower  upper 

t 

200x150 

1.302 

-.011 

2-.0 

10.0 

i 

a- 

500x2 SO 

2.214 

-.007 

2.0 

10.0 

r 

300x150 

3.0 

0 

2.0 

10.0 

400x150 

5.184 

-.017 

2.0 

8. 0 

i 

550x200 

7.426 

-.038 

2.0 

6.0 

D-Fenders 


K  ■  a  ♦  bA  or 
■  a'  ♦  b'A  +  c'A2 


4x3.75 

8x6 

10x8 

12x10 


5.2 

6.8 


0 

0 


boundary 
lower  upper 


1.0 

1.0 


-  34.72 

11.85 

2.0  16.20 
2.5  28.21 


R  -  Ripe  par  inch 


*  "  Rip*  per  inch  per  foot 


b1 

c* 

49.55 

18.60 

13.31 

5.39 

10.43 

2.47 

14.92 

2.54 

boundary 
lower  upper 

1.0  2.50 

1.0  4:0 

2.0  5.0 

2.5  6.0 
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ffness  vs.  Deflection  for  Bakker  Golinth  Fenders 


ipu-f  j*d  -  oo 


Bakker  Shear  Bandar 


550x200 


400x150 


900x150 

500x250 

800x150 

i - 1 - 1 - r - 

4.0  6.0  8.0  10.0 

Deflection  (&)  -  inch 

▼a.  Deflection  for  Bakker  Shear  Pender 
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Table  l-B-2:  DUHtOP  CURVE  COEJFTICIEHTS 


Dunlop  FmimUcsi  K  •  a  ♦  bA  ♦  cA2 


a 

b 

39 

.176 

-.025 

60 

.0613 

-.0092 

72 

-1.725 

+.286 

90 

.1149 

-.0084 

108 

.1807 

-.0132 

126 

-2.22 

.2133 

174 

.0835 

-.0038 

K  -  Kips  p«r  in.  per  Mtir  tfftc- 

tiv«  length 

lower  upper 

.0023 

.0009 

.0052 

.0004 

.0004 

0023 

0001 
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Stiffness  vs.  Deflection  for  Dunlop  Pneumatic  Fenders 


Table  I-C-l:  GENERAL  TIRE  6  RUBBER  -  RAYKIN 

ENERGY  TABLE 


Kip-inch 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

A... 

Size  C 

20  ton 

16 

40 

64 

90 

lie 

148 

180 

218 

256 

300 

11.2 

25 

18 

44 

72 

104 

140 

178 

220 

270 

320 

370 

11.2 

30 

20 

50 

84 

122 

162 

210 

260 

322 

380 

450 

11.2 

35 

22 

60 

98 

140 

190 

144 

300 

376 

450 

530 

11.2 

40 

30 

70 

112 

162 

216 

276 

340 

420 

500 

590 

11.2 

45 

32 

76 

126 

178 

240 

302 

376 

468 

556 

650 

11.2 

SO 

35 

82 

136 

196 

260 

336 

420 

526 

624 

740 

11.2 

60 

50 

112 

180 

250 

326 

410 

496 

610 

724 

850 

11.2 

Size  D 

20  ton 

16 

42 

80 

1j4 

172 

228 

290 

360 

436 

15.0 

25 

24 

56 

100 

156 

218 

290 

374 

466 

570 

15.0 

30 

30 

70 

120 

190 

274 

366 

472 

588 

710 

15.0 

35 

40 

82 

140 

216 

312 

420 

542 

674 

820 

15.0 

40 

50 

100 

166 

250 

354 

476 

610 

776 

960 

15.0 

45 

56 

no 

180 

274 

396 

536 

690 

876 

1064 

15.0 

50 

70 

130 

210 

316 

450 

606 

780 

980 

1200 

15.0 

60 

80 

150 

244 

370 

314 

690 

890 

1120 

1380 

15.0 

Size  E 

20  ton 

20 

52 

96 

144 

208 

272 

340 

430 

528 

18.8 

25 

24 

56 

104 

176 

256 

340 

432 

540 

648 

18.8 

30 

26 

60 

120 

200 

300 

410 

520 

660 

800 

18.8 

35 

40 

80 

160 

246 

360 

484 

608 

756 

908 

18.8 

40 

44 

90 

180 

290 

424 

580 

746 

950 

1180 

18.8 

45 

54 

116 

210 

340 

484 

660 

850 

1080 

1330 

18.8 

50 

56 

120 

230 

366 

534 

720 

936 

1200 

1520 

18.8 

60 

30 

84 

170 

290 

444 

620 

830 

1074 

1380 

1740 

18.8 

Size  F 

20  ton 

44 

80 

134 

186 

250 

320 

390 

470 

546 

22.4 

25 

48 

90 

154 

220 

300 

392 

480 

586 

694 

22.4 

30 

60 

114 

190 

276 

368 

480 

590 

716 

840 

22.4 

35 

76 

148 

226 

324 

440 

560 

690 

840 

980 

22.4 

40 

80 

152 

252 

370 

516 

692 

880 

1100 

1332 

22.4 

45 

100 

184 

300 

436 

600 

796 

1010 

1248 

1500 

22.4 

SO 

116 

214 

340 

490 

670 

884 

1120 

1380 

1632 

22.4 

60 

40 

120 

226 

372 

548 

760 

1020 

1320 

1660 

2040 

22.4 

241 
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10 

20 

30 

40 

50 

60 

Six*  C 

30  ton 

26 

74 

136 

200 

290 

380 

35 

32 

88 

160 

248 

348 

456 

40 

56 

124 

220 

336 

468 

600 

45 

68 

150 

260 

386 

540 

696 

SO 

80 

176 

300 

450 

620 

800 

60 

90 

200 

350 

520 

720 

940 

Six*  H 

40 

44 

110 

200 

320 

460 

630 

45 

60 

148 

264 

416 

600 

800 

50 

78 

176 

300 

470 

660 

900 

60 

82 

194 

340 

520 

748 

1020 

Size  X 

50 

124 

166 

420 

610 

820 

1056 

60 

140 

296 

476 

680 

920 

1200 

242 


70 

•0 

90 

100 

496 

620 

750 

890 

26.1 

584 

736 

880 

1050 

26.1 

780 

976 

1170 

1400 

26.1 

890 

1104 

1320 

1570 

26.1 

1028 

1280 

1540 

1830 

26.1 

1216 

1540 

1880 

2280 

26.1 

830 

1056 

1300 

1560 

30.0 

1024 

1270 

1520 

1790 

30.0 

1154 

1436 

1740 

2050 

30.0 

1310 

1650 

2020 

2420 

30.0 

1310 

1560 

1956 

2150 

33.6 

1500 

1800 

2150 

2530 

33.6 
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Table  1-02:  GENERAL  TIRE  S  ROBBER  -  RAYX2N 
CURVE  ccemciENTS 


K  ■  i  ♦  bi  or 
■  a  ♦  bA  ♦  ed2 


A  ■  inches 
K  ■  kips/inch 


boundary 


a 

b 

c 

lower 

Upper 

Sire  C 

20  ton 

5.66 

-.026 

0 

11.2 

25 

7.26 

-.066 

0 

11.2 

30 

9.10 

-.090 

0 

11.2 

35 

10.50 

-.092 

0 

11.2 

40 

11.94 

-.056 

0 

11.2 

45 

13. 38 

-.064 

0 

11.2 

50 

13.96 

-.020 

0 

11.2 

60 

16.80 

0 

11.2 

Site  D 

20  ton 

4.38 

-.026 

0 

15.0 

25 

5.50 

-.038 

0 

15.0 

30 

7.08 

-.072 

0 

15.0 

35 

8.10 

-.074 

0 

15.0 

40 

9.20 

-.066 

0 

15.0 

45 

10.26 

-.072 

0 

15.0 

50 

11.08 

-.054 

0 

15.0 

60 

12.86 

-.054 

0 

15.0 

Site  E 

20  ton 

3.76 

-.066 

0 

18.8 

25 

4.64 

-.078 

0 

18.8 

30 

5.90 

-.100 

0 

18.8 

35 

6.76 

-.110 

0 

18.8 

40 

7.36 

-.054 

0 

18.8 

45 

8.26 

-.056 

0 

18.8 

50 

9.64 

-.076 

0 

18.8 

60 

10.60 

-.076 

0 

18.8 

Site  r 

20  ton 

4.511 

-.147 

.002 

0 

22.4 

25 

5.715 

-.188 

.003 

0 

22.4 

30 

5.691 

-.214 

.004 

0 

22.4 

35 

6.536 

-.359 

.004 

0 

22.4 

40 

7.978 

-.303 

.007 

0 

22.4 

45 

8.786 

-.317 

.007 

0 

22.4 

50 

9.438 

-.351 

.009 

0 

22.4 

60 

10.72 

-.339 

.009 

0 

22.4 
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Stiffness  ts.  Deflection  for  General  Tire  Size  E-Ray  ki  n  Fenders 


■6:  Stiffness  w.  Deflection  for  General  Tire  Size  R-Rsykln  Fenders 
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GOODYEAR  TIRE  AND  RUBBER  COMPANY 


Table  I-D-l:  GOODYEAR  ENERGY  TABLES 


Rectangular 

10 

20 

30 

40 

50 

2x4x0 

3. 5x4. 5x1 

6.0 

Sx6.Sx2.5 

3.6 

6.0 

7x10x3 

2.4 

6.0 

14.4 

29 

8x10x3 

1.2 

2.4 

12.0 

18 

8x8x3 

1.2 

2.4 

12.0 

20 

10x10x4 

1.2 

8.4 

15.6 

28 

10x12x4 

2.4 

12.0 

20.4 

29 

12x12x5 

2.4 

12.0 

24.0 

41 

14x14x6 

4.8 

18.0 

31.2 

60 

20x20x8 

8.4 

20.4 

39.6 

62 

D-Fandarx 

Kip-in/foot  of  length 

6“ 

1.2 

1.6 

2.4 

3.0 

8" 

1.2 

2.4 

3.6 

6.0 

12" 

1.8 

3.6 

7.2 

13.0 

Trapexoid 

Kip-in. /foot  of 

length 

10" 

2.4 

.6 

8.4 

23 

16 

13" 

4.8 

.7 

12 

17 

26 

15" 

6.0 

12 

18 

25 

35 

17" 

6.0 

14 

24 

34 

47 

20’ 

7.2 

18 

30 

46 

64 

Cyl.  End  Ld. 

Kip-in/foot  of  length 

10 

24 

12 

12 

24 

60 

IS 

24 

36 

60 

96 

18 

36 

60 

108 

168 

21 

48 

96 

168 

276 

24 

60 

120 

204 

300 

27 

60 

108 

180 

264 

K  •  Kip- in. /foot  of  length 


60 

70 

80 

90 

100 

*M* 

14 

24 

1.25 

12 

22 

26 

48 

60 

2.10 

13 

19 

32 

56 

79 

3.10 

42 

62 

82 

112 

163 

4.00 

26 

36 

56 

84 

132 

4.50 

34 

46 

65 

90 

120 

4.75 

46 

60 

90 

144 

214 

5.50 

46 

61 

101 

142 

209 

6.00 

58 

90 

125 

170 

246 

6.75 

82 

120 

162 

236 

336 

7.75 

91 

127 

166 

212 

281 

8.50 

5.8 

7.2 

9.6 

18 

40 

4.0 

9.0 

13 

17 

28 

53 

5.5 

16 

22 

30 

44 

70 

7.2 

20 

28 

32 

37 

48 

4.6 

30 

40 

54 

66 

72 

6.0 

46 

55 

70 

83 

96 

6.6 

60 

77 

91 

110 

127 

7.6 

82 

101 

122 

144 

166 

8.7 

•  sot  of 

MX. 

length 

36 

48 

72 

96 

120 

7.5 

84 

96 

144 

180 

216 

9.0 

144 

204 

252 

324 

396 

11.5 

252 

336 

432 

528 

648 

13.2 

396 

528 

1032 

828 

1020 

15.5 

408 

540 

696 

864 

1020 

15.0 

360 

480 

600 

744 

900 

13.2 

4 
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Cylindrical 

10 

20 

30 

40 

3* 

5- 

2.4 

7- 

2.4 

2.4 

8" 

2.4 

3.6 

10" 

1.2 

2.4 

4.8 

12" 

2.4 

3.6 

6.0 

15" 

2.4 

4.8 

9.6 

18" 

1.2 

3.6 

7.2 

12 

21" 

1.2 

4.8 

8.4 

16 

24" 

1.2 

6.0 

11 

18 

27" 

1.2 

6.0 

13 

22 

36" 

1.2 

24 

48 

46" 

1.2 

36 

60 

60" 

2.4 

48 

84 

King  Type 

3x 1*6x7. 5 

2.4 

4x1x6. 5x1 

2.4 

4x2x6. 5x1 

3.6 

6x2x9. 5x1. 5 

3.6 

7.2 

6x 3x9x1. 5 

1.2 

3.6 

4.8 

6.0 

10x3x16x2.5 

1.2 

3.6 

7.2 

12 

10x4x16x2.5 

1.2 

3.6 

7.2 

12 

8x4x12x2 

1.2 

3.6 

6.0 

7.2 

12x6x16x3 

2.4 

4.8 

7.2 

9.6 

Kip-in/foot  Un^th 


50 

60 

70 

80 

90 

100 

^B*x 

3.6 

9.6 

17 

32 

2.25 

2.4 

3.6 

4.8 

6.0 

12 

28 

3.5 

3.6 

6.0 

7.2 

9.6 

20 

55 

4.6 

6.0 

8.4 

9.6 

16 

31 

59 

5.4 

7.2 

9.6 

13 

16 

30 

60 

6.0 

9.6 

13 

17 

22 

36 

72 

7.0 

13 

18 

24 

28 

42 

84 

8.5 

18 

26 

34 

41 

59 

108 

10.5 

23 

31 

40 

53 

72 

131 

11.8 

26 

36 

48 

62 

80 

140 

13.0 

30 

43 

56 

74.4 

104 

163 

14.25 

60 

84 

108 

156 

216 

300 

21.0 

96 

144 

204 

252 

348 

480 

27.0 

132 

192 

264 

360 

480 

648 

31.0 

Kip-in/foot  of  length 


3.6 

4.8 

6.0 

9.0 

11 

19 

1.75 

4.8 

7.2 

8.4 

12 

22 

26 

2.10 

4.8 

6.0 

9.6 

16 

28 

57 

2.50 

9.6 

13 

19 

28 

36 

60 

3.3 

7.2 

9.6 

13 

22 

37 

84 

4.0 

17 

24 

32 

43 

64 

96 

4.7 

18 

24 

32 

43 

61 

94 

5.0 

8.4 

12 

16 

22 

38 

67 

4.6 

13 

18 

23 

32 

50 

94 

6.5 
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Title  I-D-2:  GOODYEAR  CURVE  COEFFICIENTS 


Rectangular  JC  -  a  +  b  ♦  c  2  or 
■  constant  ■  d 


X  "  kips/inch/ft  of  length 


6x2 

lOx 

lOx 

6x3 

6x4 

12x 


boundary 

boundary 

a 

b 

e 

lower 

upper 

d 

lower 

upper 

2x4x0 

37.33 

-52.00 

58.67 

.5 

1.25 

3. 5x4. 5x1 

35.50 

-40.25 

23.75 

1.0 

2.0 

5x6. 5x2. 5 

35.19 

-41.58 

14.40 

1.0 

3.0 

7x10x3 

29.64 

-15.98 

4.33 

2.0 

4.0 

6x10x3 

19.36 

-12.52 

3.17 

2.0 

4.0 

10x10x4 

13.08 

-  6.13 

1.54 

2.0 

5.0 

8x6x3 

18.14 

-  9.73 

2.08 

2.0 

4.0 

10x12x4 

52.00 

-25.50 

3.50 

3.0 

6.0 

7.0 

2.0 

3.0 

12x12x5 

21.40 

-  8.40 

1.20 

4.0 

6.0 

7.0 

2.0 

4.0 

14x14x6 

11.27 

-  3.20 

.533 

4.0 

7.0 

7.0 

2.0 

4.0 

20x20x8 

20.68 

-  5.34 

.510 

6.0 

8.0 

7.0 

2.0 

6.0 

D  Pendars 

K  - 

a  ♦  bA  ♦ 

cA2 

K 

■  kips /foot  of 

length 

Cyl 


5* 

8" 

10" 

12’ 

15" 

18" 

21" 

24" 

27" 

36' 

48' 


boundary 


a 

b 

c  lower  upper 

1 

6  inch 

41.25 

. 

-34.13 

7.13  2.0  4.0 

cy; 

8  inch 

7.100 

• 

■  4.73 

.967  2.0  5.0 

i 

12  inch 

3.58 

* 

-  1.76 

.363  2.0  7.0 

i 

Regular  and  Wing  Type 

Trapezoidal  It  •  *  ♦  bi  or 

K/foot 

of  length 

10; 

12; 

-  a1  *  b'A 

♦  c'A* 

!  15; 

1  16; 

boundary 

boundary 

21; 

a 

b 

lower  upper  a' 

b1 

c* 

lower 

upper 

24. 

lO- 

7.53  - 

1.56 

.145 

2.0 

4.0 

27. 

lS" 

4.66 

♦ 

.170 

2.0  3.0  11.35  - 

2.83 

.255 

3.0 

5.0 

15- 

4.00 

♦ 

.500 

2.0  3.0  10.75  - 

2.32 

.190 

3.0 

6.0 

17- 

4.00 

♦ 

.500 

2.0  3.0  8.51  - 

1.22 

.074 

3.0 

7.0 

20- 

4.00 

♦ 

.500 

2.0  4.0  10.49  - 

1.36 

.058 

4.0 

8.0 

I 
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Wing  Type  Cylindrical 


It/foot  of  length 


X  •  a  ♦  bd  or 
-  a*  ♦  b'A  ♦  e'A2 

boundary  boundary 


a 

b 

lower 

upper 

a' 

b* 

c' 

lower 

upper 

6x2x9. 5 

6.0 

0 

1.0 

1.5 

17.27 

-13.87 

4.26 

1.5 

3.0 

10x3x16 

6.0 

0 

1.0 

2.5 

10.00 

-  3.43 

.733 

2.5 

4.0 

10x4x16 

6.0 

0 

1.0 

2.85 

16.57 

-  7.04 

1.17 

2.85 

5.0 

6x3x9 

2.S 

0 

1.0 

1.25 

12.07 

-12.98 

4.10 

1.25 

3.0 

6x4x12 

2.5 

0 

1.0 

3.25 

25.90 

-16.30 

2.80 

3.25 

4.0 

12x6x18 

2.30 

♦  .200 

1.0 

4.50 

11.73 

-  5.38 

.764 

4.50 

6.0 

Cylindrical 

K  -  a 

♦  b& 

or 

K/foot  of  length 

-  a* 

♦  b' 

d  ♦  c’d2 

boundary 

boundary 

a 

b 

lower 

upper 

a' 

b* 

c* 

lower 

upper 

5" 

3.55 

-  3.75 

1.30 

2.0 

3.0 

8* 

1.20 

0 

2.0 

3.2 

33.51 

-19.48 

2.93 

3.2 

5.0 

10" 

1.20 

0 

2.0 

4.2 

79.25 

-35.66 

4.06 

4.2 

6.0 

12" 

1.20 

0 

2.0 

5.0 

45.55 

-18.35 

1.90 

5.0 

7.0 

15" 

1.20 

0 

2.0 

6.9 

120.12 

-35.33 

2.62 

6.9 

8.0 

18" 

1.20 

0 

2.0 

8.2 

24.27 

-  6.30 

.424 

8.2 

10.0 

21" 

1.20 

0 

2.0 

9.5 

99.27 

-20.72 

1.09 

9.5 

11.0 

24" 

1.20 

0 

2.0 

11.0 

107.59 

-19.54 

.898 

11.0 

13.0 

27" 

1.20 

0 

2.0 

12.0 

92.14 

-15.36 

.650 

12.0 

14.0 

36" 

1.20 

0 

2.0 

15.0 

12.31 

-  1.50 

.050 

15.0 

20.0 

48" 

1.20 

0 

2.0 

16.0 

.404 

.125 

-.002 

16.0 

24.0 

60" 

1.20 

0 

2.0 

20.0 

2.99 

-  .191 

.005 

20.0 

30.0 

Cylindrical i 

End- loaded 

d 

K  -  Coni  tan  t  d 

boundary 
lowe  r  uppe  r 

K/foot  of  length 

10x5 

3.60 

0 

7.0 

12x6 

4.60 

0 

9.0 

15x7.5 

5.90 

0 

11.0 

18x9 

7.18 

0 

13.0 

21x10.5 

8.40 

0 

15.0 

24x12 

9.28 

0 

15.0 

27x13.5 

10.50 

0 

13.0 
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Stiffness  (k)  -  kips  psr  inch  per  foot 


260 


Goody air  Cylindrical  render* 


10x5 


i - 1 - 1 - 1 - r — . i — 

0  6.0  6.0  10.0  12.0  14.0 


Deflection  (A)  -  inch 


I->-5:  StiffneM  r«.  Deflection  for  Coodyear  Cylindrical  Pender* 


Deflection  (A)  -  inch 


FIG.  I-D-7:  Stlffneaa  re.  Deflection  for  Goodyear  Vine-type 
Cylindrical  Fenders 


263 


FIG.  Z-D-8:  Stiffness  vs.  Deflection  for  Goodyear  Portslide  Fender 
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Table  I-E-l:  LORD  ENERGY  TABLE 


10  20  30 

40 

SO 

60 

70 

80 

K  -  Klp-inchaa 
90  100 

1F4-  €9 

12 

24 

31 

42 

49 

60 

72 

82 

9.5 

97 

18 

30 

44 

59 

72 

84 

98 

110 

9.5 

125 

25 

43 

57 

72 

94 

114 

132 

149 

9.5 

152 

31 

52 

70 

91 

114 

138 

156 

180 

9.5 

180 

43 

66 

85 

109 

134 

158 

184 

212 

9.5 

2F4-212 

60 

90 

120 

150 

190 

226 

264 

14.5 

319 

95 

120 

180 

215 

275 

325 

390 

14.5 

390 

130 

170 

230 

275 

350 

410 

460 

14.5 

460 

150 

190 

270 

330 

420 

480 

550 

14.5 

530 

190 

240 

330 

390 

490 

550 

630 

14.5 

600 

220 

275 

385 

450 

560 

650 

720 

14.5 

670 

250 

315 

430 

504 

630 

720 

810 

14.5 

4F5-  14 

3.0 

5.4 

7.2 

9.6 

12 

15 

18 

5.5 

21 

5. 5 

7.8 

11 

14 

18 

22 

26 

5.5 

28 

7.2 

10 

14 

19 

23 

28 

33 

5.5 

35 

9.0 

13 

19 

23 

29 

36 

42 

5.5 

47 

12 

18 

24 

31 

38 

48 

58 

5.5 

5F-  600 

200 

275 

360 

455 

540 

635 

720 

23.0 

765 

240 

360 

445 

565 

685 

810 

890 

23.0 

900 

300 

444 

540 

660 

820 

960 

1060 

23.0 

1070 

360 

515 

660 

816 

960 

1135 

1260 

23.0 

1240 

435 

600 

780 

950 

1105 

1320 

1450 

23.0 

2  66 


Table  I-E-2:  LORD  PENDER  CURVE  COEFFICIENTS 


Lord  Ponder:  K  ■  a  ♦  bA  +  cA2 


1P4 

a 

b 

c 

boundary 
lower  upper 

69 

3.79 

-  .431 

.017 

1.0 

9.5 

97 

5.04 

-  .562 

.023 

1.0 

9.5 

12S 

6.89 

-  .934 

.047 

1.0 

9.5 

152 

9.49 

-1.60 

.105 

1.0 

9.5 

180 

11.61 

-1.69 

.087 

1.0 

9.5 

2F4 

212 

4.70 

-  .371 

.011 

2.0 

14.5 

319 

6.94 

-  .553 

.017 

2.0 

14.5 

390 

8.45 

-  .707 

.023 

2.0 

14.5 

460 

10.16 

-  .776 

.022 

2.0 

14.5 

530 

13.05 

-1.08 

.033 

2.0 

14.5 

600 

17.16 

-1.69 

.057 

2.0 

14.5 

670 

21.95 

-2.40 

.085 

2.0 

14.5 

4F5 

14 

2.29 

-  .535 

.050 

1.0 

5.0 

21 

3.13 

-  .515 

.030 

1.0 

5.0 

28 

5.17 

-1.35 

.133 

1.0 

5.0 

35 

7.52 

-2.27 

.248 

1.0 

5.0 

47 

7.69 

-2.00 

.213 

1.0 

5.0 

5F 

600 

5.70 

-  .390 

.020 

2.0 

10.0 

765 

7.95 

-  .715 

.040 

2.0 

10.0 

900 

10.25 

-  .978 

.051 

2.0 

10.0 

1070 

13.42 

-1.19 

.048 

2.0 

10.0 

1240 

18.22 

-1.74 

.064 

2.0 

10.0 

267 


Deflection  (t)  -  inch 


TIG.  I-E-l:  Stiffness  rs.  Deflection  for  Lord  Tender  Series 


Deflection  (A)  -  inch 


FIG.  I-E-3:  Stiffness  v«.  Deflection  for  Lord  Fender  J*F5  Series 
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APPENDIX  I-F 


OIL  STATES  RUBBER  COMPANY 


-•-  <  'tni'f*“liii'« ir^irilriMn'iir J’m i ~ hunt -  ift  '>eiiin*a-[iiMYifBfi>-A— mi  f •-  - 

«i 


Table  I-P:  OIL  STATES 

CURVE  COEFFICIENTS  AND  ENERGY  TABLE 


Oil  States  Boat  Bto^pers  X  •  a  ♦  bA  ♦  cA2 


boundary 


a 

b 

e 

lower 

upper 

12.88 

-8.2 

18.8 

1.25 

.25 

10  20 

30 

40  50 

60 

70 

Kip-in. /foot 

80  90  100 

.75 

1.75 

337  5.90  9.73 

15.40 

23.48  34.74  50 

1.25 
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APPENDIX  I-C 


SAMSON  OCEAN  SYSTEMS,  INC. 
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Table  1-0-2:  SAMSON  CUKVE  COCmciEHTS 


Solid  roan  H  ■  i  +  bi  or 

-  a*  ♦  b'A  ♦  e‘A2 


X  -  Kips  per  inch 


boundary 

a  b  lower  upper  a* 


b* 


boundary 

e*  lower  upper 


10x20 

4x8 


.1478  .0001 


24.0 


S6.0 


.900 

.207 


.0262  .0002  S6.0  72.0 
.0049  .0002  7.0  28.S 


Cost  Fender  K  •  a  ♦  bA  or 

■  a*  ♦  b'A  ♦  c*A2 


boundary 

boundary 

a 

b 

lower 

upper 

a* 

b* 

c* 

lower 

Upper 

2’x3' 

32"x4* 

.656 

.0139 

3.0 

14.0 

3.011 

-  .355 

.0143 

14.0 

19.0 

32"x6* 

1.0 

... 

3.0 

9.5 

2.313 

-  .255 

.0123 

9.5 

19.0 

4'x6' 

1.017 

.0067 

5.0 

20.0 

4.40 

-  .350 

.0094 

20.0 

29.0 

4'x8' 

1.233 

.0133 

5.0 

20.0 

6.987 

-  .565 

.0146 

20.0 

29.0 

4'xlO' 

1.633 

.0133 

5.0 

20.0 

8.817 

-  .707 

.01B1 

20.0 

29.0 

Sprayed  Fender 

K  •  a 

♦  bA  or 

-  a' 

♦  b'A  ♦  c'A* 

boundary 

boundary 

a 

b 

lower 

upper 

a' 

b* 

C* 

lower 

upper 

6x8 

1.574 

.018 

7.0 

32.0 

16.150 

-  .904 

.0146 

32.0 

43.0 

6x12 

2.670 

.0114 

7.0 

29.0 

5.925 

-  .301 

.0068 

29.0 

43.0 

6x18 

3.878 

.0174 

7.0 

30.0 

17.38 

-  .920 

.0162 

30.0 

43.0 

*12 

2.467 

.0133 

9.0 

40.0 

28.317 

>1.241 

.0152 

40.0 

57.0 

8x16 

3.400 

— 

9.0 

24.0 

6.063 

>  .200 

.0037 

24.0 

57.0 

8x20 

4.196 

.0104 

9.0 

34.0 

13.540 

>  .533 

.0079 

34.0 

57.0 

10x16 

3.300 

.0083 

12.0 

48.0 

6.374 

-  .193 

.0029 

48.0 

72.0 

10x20 

4.300 

.0083 

12.0 

48.0 

12.76 

>  .403 

.0049 

48.0 

72.0 

l 


«P«7  X» d  9*1X  - 
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F10.  I-O-l:  Stiffness  ▼«.  Deflection  for  Ssnson  Solid  Fos«  Fenders 


FIG.  I-G-2:  Stiffness  vs.  Deflection  for  Sarcon  Cast  Fenders  up  to  32"  x  6' 


Stiffness  es.  , Deflection  for  Season  Sprayed  Pender 
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S*n»rd  Ssa- Cushion  Ftndtr 


Stiffness  vs.  Deflection  for  Seward  Sea  Cushion  Tender 


Seward  Sea-Cushion  fender 
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Stiffness  rs.  Deflection  for  Seward  Sea  Cushion  Fender 


APPENDIX  I-J 
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Table  I-J-l:  OHI ROYAL  KMZRCY  TABU 


Delta 

10 

W  * 

20  20 

inchaa 

40 

SO 

•0 

K  •  kip-ln/foot 
70  90  90 

of  length 
100  ^ 

ISA 

2.4 

4.9 

11 

16 

24 

24 

24 

SS 

65 

79 

5.7 

20A 

2.6 

9.6 

16 

24 

27 

52 

67 

92 

101 

116 

7.2 

23A 

4.9 

12 

29 

46 

66 

90 

112 

127 

162 

195 

9.5 

2tA 

7.2 

19 

27 

62 

91 

120 

1S4 

197 

221 

252 

11.0 

10 

2.4 

4.9 

7.2 

11 

16 

20 

25 

21 

26 

41 

4.5 

IS 

2.6 

6.0 

12 

19 

26 

25 

46 

56 

67 

79 

5.9 

20 

4.9 

11 

20 

21 

44 

60 

76 

92 

109 

125 

7.9 

25 

7.2 

19 

22 

SO 

72 

97 

120 

146 

172 

199 

9.9 

Cylindrical 


5 

4.0 

9.6 

11 

12 

19 

20 

48 

72 

4.2 

7 

9.4 

12 

12 

14 

16 

20 

48 

96 

5.2 

9 

9.6 

11 

12 

14 

19 

26 

60 

106 

6.0 

10 

7.2 

11 

12 

16 

22 

24 

48 

94 

168 

7.2 

12 

9.4 

12 

14 

22 

25 

26 

72 

102 

228 

9.0 

15 

4.9 

12 

14 

22 

28 

26 

4B 

94 

156 

226 

11.1 

19 

6.0 

12 

19 

24 

26 

50 

66 

108 

180 

414 

12.2 

21 

6.0 

12 

22 

22 

48 

62 

84 

144 

228 

492 

15.2 

24 

9.6 

16 

28 

42 

60 

94 

128 

252 

212 

612 

18.0 

29 

12 

16 

20 

46 

76 

104 

124 

168 

228 

17.0 

22 

12 

24 

26 

60 

90 

122 

168 

210 

288 

19.0 

26 

12 

24 

54 

76 

112 

150 

204 

254 

246 

21.0 

48 

16 

46 

84 

126 

196 

264 

244 

426 

576 

27.5 

60 

12 

20 

68 

120 

196 

277 

276 

496 

620 

928 

22.0 

Rectangular 


2.5x4. 5x1 

2.0 

9.4 

12 

19 

24 

31 

38 

49 

61 

96 

2.3 

5x6x2 . 5 

2.0 

6.0 

11 

14 

23 

30 

44 

58 

78 

100 

3.3 

5x6x2. 5 

3.6 

7.2 

12 

17 

24 

30 

37 

46 

90 

122 

3.6 

6x6. 5x2. 5 

4.8 

9.6 

12 

22 

26 

36 

49 

64 

102 

196 

4.1 

9x10x2 

4.9 

11 

17 

29 

36 

52 

70 

92 

131 

216 

5.0 

9x8x2 

4.6 

12 

22 

26 

36 

52 

73 

103 

146 

240 

5.5 

10x12x4 

6.0 

16 

24 

32 

50 

72 

98 

142 

209 

336 

6.75 

12x12x5 

7.2 

20 

10 

36 

62 

196 

125 

161 

250 

364 

9.0 

14x14x6 

11 

21 

35 

SO 

72 

102 

140 

197 

264 

364 

9.0 

I 

1 
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cyl.  Ad  Ld. 

10 

20 

20 

40 

50 

60 

70 

60 

90 

100 

&MX 

10 

12 

16 

26 

26 

46 

64 

64 

90 

126 

172 

7.8 

12 

id 

26 

26 

46 

64 

90 

126 

160 

216 

270 

9.8 

IS 

26 

54 

100 

144 

198 

244 

298 

260 

450 

540 

12.8 

ld 

46 

60 

144 

196 

270 

342 

414 

504 

604 

784 

14.5 

21 

62 

154 

234 

242 

450 

556 

702 

650 

1026 

1260 

17.8 

24 

100 

190 

216 

456 

612 

792 

960 

1188 

1458 

1600 

19.7 

Wing  Typ* 

6x2 

3.0 

7.2 

17 

26 

37 

58 

84 

3.7 

6x3 

6.0 

13 

24 

38 

59 

95 

4.1 

6x4 

4.8 

14 

30 

52 

64 

120 

178 

5.6 

10x4 

9.6 

23 

38 

66 

73 

148 

216 

6.6 

12xS 

6.0 

16 

34 

59 

89 

137 

216 

562 

8.3 
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Table  I-J-2:  ONI ROYAL  CURVE  CCOTICIENTS 


Ming  type  K  •  »  ♦  M  ♦  eA2  or  X  •  kips/inch/foot  of  length 

■  ♦  b'A  A  ■inch 


boundary  boundary 


a 

b 

c 

lower 

Mpper 

a* 

b* 

lower 

upper 

6x2 

14.03 

-13.98 

4.95 

1.0 

3.5 

rnmmmmm 

M  M  „ 

6x3 

12.90 

-14.42 

4.52 

1.0 

4.0 

— 

— 

6x4 

3.60 

-  4.21 

1.61 

1.0 

5.5 

— 

— - 

— . 

-H— 

10x4 

3.49 

-  3.56 

1.07 

3.0 

6.75 

o 

CD 

a 

1 

4  1.8 

1.0 

3.0 

12x5 

2.50 

-  2.07 

.561 

3.0 

8.25 

0 

4  1.00 

1.0 

3.0 

Cylindrical  X  •  a  ♦  bA  or 

■  a'  ♦  b'A  4  c'A2 


boundary  boundary 

a  b  lower  upper  a’  b'  c'  lower  upper 


5" 

1.82 

• 

.018 

1.0 

2.2 

9.34 

• 

12.90 

4.19 

2.2 

4.1 

7" 

1.82 

• 

.018 

1.0 

3.3 

19.18 

- 

15.56 

3.11 

3.3 

5.25 

8" 

1.82 

- 

.018 

1.0 

3.8 

6.46 

mm 

9.28 

2.07 

3.8 

6.00 

io- 

1.82 

- 

.018 

1.0 

5.0 

80.15 

m 

33.37 

3.53 

5.0 

7.40 

12" 

1.82 

- 

.018 

1.0 

5.9 

25.10 

- 

10.32 

1.08 

5.9 

9.00 

15" 

1.82 

- 

.018 

1.0 

8.5 

133.20 

- 

33.23 

2.09 

8.5 

11.25 

18" 

1.82 

- 

.018 

1.0 

9.0 

60.74 

- 

13.32 

.750 

9.0 

13'.  40 

21" 

1.82 

- 

.018 

1.0 

10.5 

55.92 

- 

10.41 

.500 

10.5 

15.75 

24" 

1.82 

- 

.018 

1.0 

12.0 

47.00 

- 

7.83 

.336 

12.0 

17.90 

28" 

1.24 

♦ 

.004 

2.0 

13.0 

19.21 

- 

2.70 

.101 

13.0 

16.50 

32" 

1.24 

♦ 

.004 

2.0 

13.5 

33.95 

- 

4.15 

.132 

13.5 

18.50 

36" 

1.24 

♦ 

.004 

2.0 

17.0 

52.63 

- 

5.71 

.158 

17.0 

21.30 

48" 

1.24 

♦ 

.004 

2.0 

23.5 

69.36 

- 

5.07 

.119 

23.5 

28.0 

60" 

1.24 

♦ 

.004 

2.0 

27.0 

52.13 

- 

3.49 

.060 

27.0 

35.50 

Rectangular  X  •  a  4  bA  or 

•  a'  4  b'A  4  c'A2 


boundary  boundary 


a 

b 

lower 

upper 

a' 

b' 

c* 

lower 

upper 

1.5x4. 5x1 

23.0 

.50 

.50 

1.0 

38.72 

-  46.08 

23.36 

1.0 

2.25 

5x6x2. 5 

23.0 

- 

.50 

.50 

1.50 

176.56 

-145.92 

32.32 

1.5 

3.25 

5x6x2. 5 

23.0 

- 

.50 

.50 

2.0 

33.03 

-  22.57 

5.77 

2.0 

3.75 

6x6. 5x2. 5 

23.0 

m 

.50 

.50 

2.0 

44.57 

-  28.05 

5.63 

2.0 

4.00 

1x10x3 

23.0 

- 

.50 

.50 

2.0 

69.50 

-  38.03 

6.267 

2.0 

5.0 

falx! 

10.84 

- 

1.67 

.5 

2.0 

40.60 

-  21.70 

3.700 

2.0 

5.0 

10x12x4 

10.84 

• 

1.67 

.5 

2.5 

17.27 

-  7.40 

1.35 

2.5 

6.5 

12x12x5 

10.84 

m 

1.67 

.5 

3.0 

17.88 

-  6.70 

.988 

3.0 

8.0 

14x14x6 

10.84 

m 

1.67 

.5 

3.5 

15.11 

-  4.64 

.632 

3.5 

8.75 
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Delta  and  Delta  A 


K  •  a  ♦  bA 


boundary 


a 

b 

lover 

upper 

13A 

7.00 

-  .636 

0.0 

6.0 

20A 

7.28 

-  .600 

0.0 

7.5 

23A 

7.75 

-  .581 

0.0 

8.5 

28A 

8.00 

-  .528 

0.0 

io.o 

10 

7.70 

-1.20 

1.0 

4.0 

IS 

6.65 

-  .580 

0.0 

5.5 

20 

7.20 

-  .579 

0.0 

7.5 

25 

8.09 

-  .588 

0.0 

9.0 

Cylindrical  End-Loaded 

K  *  Constant  or 

■  a  ♦ 

bA 

boundary 

a 

b 

lover 

i^per 

10x5 

3.85 

-  .075 

2.0 

8.0 

12x6 

4.5 

— 

2.0 

10.0 

15x75 

6.0 

— — 

2.0 

13.0 

18x9 

7.0 

— — 

4.0 

14.0 

21x10.5 

8.55 

-  .025 

2.0 

18.0 

24x12 

9.3 

— 

4.0 

20.0 
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Stiffness  vs.  Deflection  for  Uniroyal  Cylindrical  Hanftlrg  Penders  up  to  60"  O.D. 


rtMMKOT.  ••HV!'V|»l»V-«^Wji«|feJ 


Stiffness  ys.  Deflection  for  Uniroyal  Rectangular  Fenders  in  Shear 


Cylindrical  Fenders  End  loaded 


Deflection  (A)  -  inch 

Stiffness  rs.  Deflection  for  Uniroyal  Cylindrical  Fenders  ftjd  Loaded 


Table  I-K-l:  YOKOHAMA  ENERGY  TABLE 


Pneumatics 

10 

20 

30 

40 

50 

60 

70 

80 

E  "  Kip-in. 

90  100 

700x1500 

6.0 

15 

39 

72 

132 

27.6 

1000x1500 

11 

25 

60 

120 

240 

39.4 

1000x2000 

3 

15 

39 

85 

174 

350 

39.4 

13S0x2500 

12 

30 

84 

195 

390 

780 

53.1 

1500x3000 

18 

54 

120 

290 

610 

1150 

59.1 

1700x3000 

20 

72 

180 

370 

750 

1440 

66.9 

2000X3S00 

24 

105 

240 

550 

1170 

2315 

78.7 

2500x5500 

360 

900 

1800 

3900 

6900 

98.4 

3300x6500 

720 

2040 

4560 

8940 

16200 

129.9 

4500x9000 

2100 

5400 

12000 

23750 

42300 

177.2 

Air  Block 

10 

20 

30 

40 

50 

60 

70 

80 

E  -  Kip-in. 

90  100  **ax 

300x  400 

2.2 

5.2 

9.6 

17 

26 

41 

450x  600 

8.7 

17 

35 

52 

96 

143 

600x  600 

17 

39 

78 

130 

210 

320 

750x1000 

43 

87 

156 

260 

420 

650 

900x1200 

80 

ISO 

280 

435 

715 

1112 

1200x1600 

175 

350 

650 

1043 

1650 

2700 

1500x2000 

300 

735 

1260 

2085 

3475 

5213 

303 
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Tabic  I-K-2:  YOKOHAMA  CURVE  COEFFICIENTS 
Vneiaaticsi  K  ■  a  ♦  bi  ♦  cA2 


boundary 


a 

b 

c 

lower 

HPper 

700x1500 

.397 

-.032 

.0076 

1.38 

15.16 

1000x1500 

.346 

-.026 

.0050 

1.97 

23.67 

1000x2000 

1.317 

-.150 

.0072 

2.00 

23.62 

1350x2500 

.552 

-.041 

.0037 

3.94 

31.50 

1500x3000 

.748 

-.040 

.0034 

7.87 

35.43 

1700x3000 

.633 

-.039 

.0030 

3.94 

38.00 

2000x3500 

.967 

-.047 

.0023 

4.00 

47.20 

2500x5500 

1.414 

-.017 

.0019 

7.87 

55.12 

3300x6500 

2.170 

-.032 

.0016 

15.75 

78.74 

4500x9000 

2.734 

-.018 

.0011 

19.69 

98.43 

Air  blocks? 

K  •  a  ♦  bA 

♦  eA2 

300x  400 

.820 

-.099 

.028 

1.0 

7.90 

4S0x  600 

1.474 

-.163 

.023 

1.95 

11.80 

600x  800 

1.793 

-.140 

.017 

2.30 

16.55 

750x1000 

4.493 

-.413 

.020 

3.95 

19.70 

900x1200 

2.837 

-.099 

.0086 

4.00 

23.60 

1500x2000 

5.894 

-.200 

.0066 

8.00 

39.40 

1200x1600 

5.608 

-.290 

.0103 

4.0 

31.50 

K  •  Kip*  per  inch 
A  »  inch 


I 
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Stiffness  vs .  Deflection  for  YoKonaaa  Pneumatic  Fender  up  to 


Stiffness  vs.  Deflection  for  Yokohama  Air  Blocks 


vs.  Bef lection  for  Yokohama  Air  Blocks  up  to  1500 
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APPEND II  III 
NOTATIONS 

mss  of  ship  (W/g) 
weight  of  ship 
gravity  (32.2  ft/sec*) 

deformation  of  fender  aystou  at  point  of  Impact 

Initial  and  final  velocity  of  a  hip 

modulus  of  elasticity 

moment  of  Inertia  of  pile  or  waler 

cantilever  height  of  pile 

spring  constant  of  fender 

load  distribution  factor 

Induced  pile  moment 

applied  force  to  pile  due  to  ship 

resisting  pile  force 

section  modulus  of  pile 

hydrodynamic  coefficient 

eccentricity  coefficient  of  ship  and  fendering 

softness  coefficient  of  ship 

configuration  coefficient  of  ship 

Input  energy  due  to  ship 

output  energy  available  from  pile 

single  pile  deformation 

fender  deformation 

applied  force  to  pile  due  to  ship 

total  external  uniform  load,  and  load  on  valer  and  pile  respectively 
lateral  deformation  of  grid 


♦  • 
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OLD  *  I NPUT 
LIST 

FILE  ♦INPUT 


0010 

0020 

0030 

0040 

0050 

0060 

0070 

0080 

0090 

0100 

0150 

0200 

0205 

0500 

0510 

0520 

0530 

0540 

0550 

0555 

0560 

0570 

0580 

0590 

0600 

0610 

0620 

0630 

0640 

0650 

0655 

0656 

0657 

0660 

0670 

0680 

0681 

0682 

0683 

0684 

0685 

0686 

0687 

0688 

0690 

0695 

0700 

0710 

0720 

0730 

0740 

0750 

0760 

0770 

0780 


REN - 

REN  INPUT  PROGRAN 

REN - 

DCL  SINGLE 
FILES  INPUT 

DCL  40A<>  40B$  C3 , 40C*  CD  ,  40D*  Cl  ,  50R* 

REN - 

REN  DINENSIONING  OF  ARRAYS 

DIN  GC403  ,  RC403  ,  NC403  ,  XC10)  .  Y  C 103  ,  N  C 103  ,  E  C 1 03  »  F  ( 103 

REN - 

LET  R*="NODIFY  INPUT  CF 1=YES , F2=N03 “ 

FKEY  *1 , YES : 

FKEY  #2 , NO : 

GOSUB  9000 

PRINT  TABC253 ; ‘TENDERING  SYSTEN  DATA  INPUT" 

PRINT  TAB  C253  ;  “ _ _ _ _ " 

GOSUB  9040 

PRINT  TAB C63 ; "INPUT  INCLUDES  THE  FOLLOWING  GENERAL  CATEGORIES  OF", 

PRINT  "  INFORNATION: " 

PRINT 

PRINT  TABC103;"  I.  JOB  NONE" 

PRINT  TAB C 103 ; "  II.  OPTIONS" 

PRINT  TAB  C103 i "  III.  SHIP  DATA" 

PRINT  TAB C103 ; "  IU.  LOAD  DATA" 

PRINT  TAB  C103 i "  U.  PILE  DATA" 

PRINT  TAB C 103 ; "  UI.  FENDER  DATA" 

PRINT  TAB  C103 ; "  UII.  SYSTEN  CONFIGURATION  DATA" 

PRINT  TABC103 ; "UIII.  BEAN  DATA" 

PRINT  TAB  Cl 83 ; "  IX.  JOINT  COORDINATE  DATA" 

PRINT  TABC103."  X.  RIGID  SUPPORT  DATA" 

PRINT 

PRINT  TAB C63 ; "FOR  DETAILED  EXPLANATION  OF  INPUT  REFER  TO  DOCUHENTAT I ON. " 
PRINT 

GOSUB  9080 

DISP  "ENTER  JOB  NANE C40  CHAR.  HAX.3"; 

RKB  A* 

PRINT  TAB  C343 ; "I .  JOB  NANE" 

PRINT  TAB  C343  ;  " _ " 

PRINT 

PRINT  TAB  C223 ; A$ 

GOSUB  9080 
DISP  R*; 

INPUT  S* 

IF  S*="YES"  THEN  670 
PRINT  TABC343 ;"II.  OPTIONS" 

PRINT  TABC343," _ " 

PRINT 

PRINT  TAB (53 i "OPTION  1" 


PRINT  TAB  C73 
PRINT  TAB (73 
PRINT  TAB (73 
PRINT  TAB (53 
PRINT  TAB (7) 
PRINT  TAB (73 
PRINT  TAB (73 


"OPTION  1" 

"1.  ONE  OR  NORE  UERTICAL  PILES’ 
"2.  TWO  BATTERED  PILES" 

"3.  GENERAL  PILE  CONFIGURATION* 
"OPTION  2" 

“1.  REGULAR  RUBBER  FENDER" 

"2.  GRAUITY-RETRACTABLE  FENDER' 
"3.  NO  FENDER" 


ooceoi 


0790 

0800 

8810 

8820 

8830 

0840 

0850 

0860 

0870 

0880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

0960 

0970 

0980 

0998 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 


PRINT  TABI53 ; “OPTION  3“ 

PRINT  TAB £7)  .  "1.  JOINT  COORDINATED  GENERATED  INTERNALLY** 
PRINT  T AB  £73  i  “2.  JOINT  COORDINATED  INPUT** 

PRINT  TAB £53 ; "OPTION  4“ 

PRINT  TAB  £73  ;  "1 .  DEFLECTIONS  ONLY  OUTPUT** 

PRINT  TAB £73  > “2.  DEFLECTIONS  AND  SPRING  CONSTANTS  OUTPUT" 
PRINT  TAB (5 3 * "OPTION  5" 

PRINT  TAB £73  « "1 .  PILE  GROUP  ANALYSIS  OUTPUT  SUPPRESSED" 
PRINT  TAB  £73  - "2.  PILE  GROUP  ANALYSIS  OUTPUT  NOT  SUPPRESSED* 
PRINT  TAB £53 ; "OPTION  6" 

PRINT  TAB £73 ;  "1 .  JOINT  DISPLACENENT  TABLE  NOT  OUTPUT" 

PRINT  TAB £73 ; "2.  JOINT  DISPLACENENT  TABLE  OUTPUT" 

PRINT  TAB£53 ; "OPTION  7" 

PRINT  TAB £73 ;  "1 .  NO  RIGID  SUPPORTS" 

PRINT  TAB £73 i "2.  ONE  OR  NORE  RIGID  SUPPORTS" 

GOSUB  9080 

LET  B*C13="  ENTER  1*2,  OR  3" 

LET  B*£23="  :  ENTER  1  OR  2" 


LET  B*C13=" 
LET  B*£23=" 


LET  B*  £33  =  " INPUT  ERROR* 

GOTO  1020 

DISP  B* £33 ; B*  £13 ; 

INPUT  II 
GOTO  1040 

DISP  "OPTION  1";B$C13 ; 
INPUT  II 

IF  I1<1  THEN  990 
IF  II >3  THEN  990 
GOTO  1100 
DISP  B*£33  i  B$  £13  ; 

INPUT  12 
GOTO  1120 

DISP  "OPTION  2"; B*  £13 i 
INPUT  12 

IF  I 2< 1  THEN  1070 
IF  I2>3  THEN  1070 
GOTO  1180 
DISP  B*  £33 i B*  £23 ; 

INPUT  13 
GOTO  1200 

DISP  "OPTION  3";B*£23; 
INPUT  13 

IF  I3< 1  THEN  1150 
IF  I 3 >2  THEN  1150 
GOTO  1260 
DISP  B$  £33  '•  B$  £23  ; 

INPUT  14 
GOTO  1280 

DISP  "OPTION  4";B*£23; 
INPUT  14 

IF  I4< 1  THEN  1230 
IF  I4>2  THEN  1230 
GOTO  1340 
DISP  B*£33  ;B*£23  ; 

INPUT  15 
GOTO  1360 

DISP  "OPTION  5";B*£23 ; 
INPUT  15 

IF  I 5< 1  THEN  1310 
IF  I 5>2  THEN  1310 
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1380 

1380 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1535 

1536 

1537 
1540 
1550 

1560 

1561 

1562 
1570 
1580 
1598 
1600 
1610 
1620 
1630 

1632 

1633 

1634 
1640 
1650 

1655 

1656 
1660 
1665 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 

1762 

1763 

1764 
1770 
1780 
1790 
1800 
1805 
1810 
1820 
1830 


GOTO  1420 

DISP  B*(3) , B*  (2) , 

INPUT  17 
GOTO  1440 

DISP  "OPTION  6" »  B*  C2) , 

INPUT  17 

IF  I 7< 1  THEN  1390 
IF  1 7  >2  THEN  1390 
GOTO  1500 
DISP  B*C3) , B*  (2) . 

INPUT  U1 
GOTO  1520 

DISP  "OPTION  7",B*C2), 

INPUT  U1 

IF  U1<1  THEN  1470 
IF  U 1 >2  THEN  1470 
DISP  R* , 

INPUT  S* 

IF  S*="YES"  THEN  1020 

PRINT  TOB (33) ."III.  SHIP  DOTH" 

PRINT  T0BC33)  ,  " _ _ _ " 

PRINT 

PRINT  TOBC10) , "UORIOBLE", TOBC50) , “UNITS" 
PRINT 

PRINT  T OB 1101 , "WEIGHT", TOBC50) , "TON (SHORT )  " 
PRINT  T OB  C 103 , "UELOCITY", TOB (50) , "KNOT" 
GOSUB  9080 

DISP  "ENTER  WEIGHT  OF  SHIP", 

INPUT  W 

DISP  "ENTER  UELOCITY  OF  SHIP", 

INPUT  U2 
DISP  R*, 

INPUT  S* 

IF  S*="YES"  THEN  1600 

PRINT  T PB  (333 , " I U .  LOOD  DOTO" 

PRINT  TOB  (333  ,  " _ _ _ " 

PRINT 

PRINT 

PRINT  TAB (10) , "UOR I OBLE " , TOB  C503 , "UNITS" 
PRINT 

PRINT  TOBC10D , "LOOD  POINT" 

PRINT  TOBC103 , "ONGLE  OF  I NPOCT " , TOB C 50) , "DE 
PRINT  TOBC10) ; "ONGLE  BETWEEN  LOOD  OND  X-OXI 
GOSUB  9080 

DISP  "ENTER  LOOD  POINT", 

INPUT  L2 

DISP  "ENTER  ONGLE  OF  INPOCT", 

INPUT  06 

DISP  "ENTER  ONGLE  BETWEEN  LOOD  OND  X-OXIS", 
INPUT  P2 
DISP  R*. 

INPUT  S* 

IF  S*= "YES"  THEN  1710 
PRINT  TOB  C343  i "U.  PILE  DOTO" 

PRINT  TOB  (34)  ;  _ _ " 

PRINT 

PRINT  TOB (10) i "UORIOBLE", TOBC50) , "UNITS" 
PRINT 

PRINT  TOBC10)  ,  "SUBGROGE  MODULUS",  TOM50)  »  "K 
PRINT  TOB  1 103 ; "TORS IONOL  NODULUS" , TOB C50) , " 
PRINT  TOB C 10) , "MODULUS  OF  ELOST IC I TY", TOB C5 


■IU.  LOOD  DOTO" 


•UORIOBLE", TOB  C50) , "UNITS" 


LOOD  POINT" 

ONGLE  OF  INPOCT", TOB C50) , "DEGREE" 

ONGLE  BETWEEN  LOOD  OND  X-OXIS", TOB (50) . "DEGREE " 


009003 


•UORIOBLE", TOB C50) , "UNITS" 

•SUBGROGE  NODULUS" , T 00150) , "KIP/FOOT**3" 

•TORS  IONOL  NODULUS",  TOBC50)  ,  "KIP/'  I  NCH**2" 
•NODULUS  OF  ELOST I C I TY" , TOB (50) , "K I P/ I NCH**2' 


►j  N  * j  tj  tj  ►j  nj  ►j  ►  .»  fj  t  .•  tj  f  j 


1848  G0SU8  8088 

1850  OISP  "ENTER  SUBGRADE  NOOULUS", 

1860  INPUT  G 1 

1870  DISP  "ENTER  TORSIONAL  HODULUS", 

1880  INPUT  G3 

1880  OISP  “ENTER  NODULUS  OF  ELASTICITY". 

1800  INPUT  El 

1802  OISP  R*. 

1803  INPUT  S* 

1804  IF  S*= "YES"  THEN  1850 

1810  PRINT  T  AB  (29)  .  "U.  PILE  DATA (CONT . ) " 

1820  PRINT  T AB  (29)  .  _ _ " 

1830  PRINT 

1 9*0  PRINT  TABC10J . "UAR I  ABLE " . TAB(50) . "UNITS" 

1945  PRINT 

1850  LET  B* (41 = "NUHBER  OF  PILES" 

1960  LET  B*  (  5)  =  "P I LE  NUNBER" 

1970  LET  B*  (6) ="LENGTH" 

1980  LET  B*  (7)  ='*CANT  ILEUER  LENGTH" 

1990  LET  8* (8) = "PROJECTED  WIDTH  IN  X-X  DIRECTION" 
2000  LET  8$  C9)  =  "PROJECTED  WIDTH  IN  Y-Y  DIRECTION" 
2010  LET  B* ( 10) =“NONENT  OF  INERTIA  ABOUT  X-X  AXIS" 
2020  LET  C$  (  1 )  =  "NONE NT  OF  INERTIA  ABOUT  Y-Y  AXIS" 
2030  LET  C$ (2) = “POLAR  NONENT  OF  INERTIA" 

040  LET  C*  (3) = "CROSS -SECT IONAL  AREA" 

050  LET  C*(4)="YIELD  STRESS" 

060  LET  C  $  (  5)  =  "NEURT  AL -AX  I S-OUTER-F I BER  LENGTH" 

070  LET  C* (6) ="UERT ICAL  LOAD" 

080  ON  II  GOTO  2090,2230,2370 

090  PRINT  TAB C 10) , "NUNBER  OF  P I LES" , T AB (60)  . ”  (<  =  1 0) 
100  PRINT  TAB(10) , "SPACING", TAB(50) . "INCH" 

110  PRINT  TAB(10) ,B*(6) ,TAB(50) , "FOOT" 

120  PRINT  TABC18) ,B*(7) , TABC50) , “FOOT" 

130  PRINT  TAB(10) ,B*(8) , TABC50) , "INCH" 

140  PRINT  TAB(10) ,B*(9) , TAB(50) , "INCH" 

150  PRINT  TABC10) ,B*(10) . TAB(50) , "INCH**4" 

160  PRINT  TAB(10) ,C*(1) , TABC50) , "INCH**4" 

170  PRINT  TBB(10) ,C*(2) , TAB(50) , "INCH**4" 

180  PRINT  T  AB (10)  , C* ( 3)  ,T  AB  C  50)  , " I NCH**2" 

190  PRINT  T AB (10)  , C$ (4)  ,T AB (50)  ,  "KIP^I NCH* *2 " 

200  PRINT  TAB(10) ,C$(5) , TABC50) , "INCH" 

210  PRINT  T AB (10)  , C* (6)  ,T AB ( 58)  ,  "KIP" 

220  GOTO  2750 

2230  PRINT  TAB(10) , "SLOPE" 

2240  PRINT  TAB(10) ,B*(6) , TAB (50) , "FOOT" 

2258  PRINT  TAB ( 10) . B* (8) , TAB ( 50) , " I NCH" 

2260  PRINT  TAB(10) ,B*(9) , TAB (50) . "INCH" 

2270  PRINT  T AB (10)  . BS ( 10)  .  T AB (58)  ,  "I NCH* *4” 

2280  PRINT  TAB(10) ,C*(1) , TAB (50) , "INCH**4“ 

2290  PRINT  TAB (18) ,C$(2) , TAB (50) , “ I NCH* •4” 

2300  PRINT  T AB (18)  ,C$(3)  ,T AB ( 50)  , " I NCH**2" 

2310  PRINT  TAB(IB)  ,C*(4)  , TAB(50)  , "K I P ' I NCH**2 " 

2  320  PRINT  TABM0)  ,C*(5)  .  TAB  (50)  ,  "INCH" 

2330  PRINT  TAB C 10) , C* (6) . TAB ( 50) . "K IP" 

2340  PRINT 

2350  PRINT  TAB( 10) . "PILE  NUNBER" 

2  355  PRINT  TA8( 10)  . "CAT ILEUER  L E NG TH " . T AB  I  50) .  "F OOT " 
2360  GOTO  2750 

2  370  PRINT  TAB( 10)  , "NUNBER  OF  PILES". T AB (b0),"(<  =  10) 
2-80  PRINT  TAB ( 10) . "SHAPE  FACTOR" 

2410  PRINT  TAB ( 10)  . "UE RT  ICAL  PIIE  LOGIC" 


PRINT  TPB ( 103 ; "NUMBER  OF  SPMPLE  POINTMflB  (603  ;  “  (<  =  103  " 
PRINT  TOBC103  ;  B*  CS3  ,TPB(503  ;  "FOOT" 

PRINT  TPB (183 ; BF  (83 ; TPB (503  . "INCH" 

PRINT  TPB C 103 .B*(93 .TPB (503 . "INCH" 

PRINT  TPB C 103 ;B$(103 ;TPB(503  . "INCH**4" 

PRINT  TPBC103 ;C*(13 . TPB C503 . "INCH**4" 

PRINT  TPB (103 ;C*C23 , TPB (503 , “INCH**4" 

PRINT  TPBC103 ;C*(33 » TPB (503 , "INCH**2" 

PRINT  TPB(103 ; C* (43 ; TPB (503 , “K IP/ INCH**2" 

PRINT  TPB (103 .C*(51 ;TPB(503 ; “INCH" 

PRINT  TPB (103 ;C*(63 ;TPB(503 ; "KIP" 

PRINT 

PRINT  TPB (283 , "INPUT  ONCE  FOR  EPCH  PILE" 

PRINT 

PRINT  TPB (103 ; "PILE  NUMBER" 

PRINT  TPB (103 ; “X-COORDINPTE”. TPB (503 ; "INCH" 

PRINT  TPB (103 ; "Y-COORDINPTE"; TPB (503 . "INCH" 

PRINT  TPB (103 ;"Z-COORDIN0TE";TPB(503 ; "INCH" 

PRINT  TPB(103 ; "SLOPE" 

PRINT  TPB (103 ; "PNGLE"; TPB(503 ; "DEGREE" 

PRINT  TPB(103 ; "CPNTILEUER  LENGTH"; TPB  (503  ;  "FOOT" 

PRINT 

PRINT  TPB(1?3 ; "INPUT  IF  NO.  OF  SPMPLE  POINTS  GREPTER  THPN  0* 
PRINT 

PRINT  TPB (103 ; "SPMPLE  POINT  NUMBER" , TPB (603 ,"(<= 103 " 

PRINT  TPB (103 ; "X-COORDINPTE"; TPB(503 , "INCH" 

PRINT  TPB(103 ; “Y-COORD I NPTE " ; TPB (503 ; "INCH" 

PRINT  TPB (103 ; "Z-COORDIN0TE"; TPB (503 . "INCH" 

GOSUB  9080 

LET  CS (73  = "ENTER  LENGHT" 

LET  C*(83="ENTER  CPNTILEUER  LENGTH" 

LET  C* (93  =  "ENTER  PROJ.  WIDTH  X-X  DIRECT." 

LET  C* ( 103  = "ENTER  PROJ.  WIDHT  Y-Y  DIRECT." 

LET  D* (13= "ENTER  MOM.  OF  I.  PBOUT  X-X  PXIS" 

LET  D$ (23  = "ENTER  MOM.  OF  I.  PBOUT  Y-Y  PXIS" 

LET  D$ (33  = "ENTER  POLPR  MOMENT  OF  I." 

LET  D$(43="ENTER  CROSS-SECT.  PREP" 

LET  D*(51=“ENTER  YIELD  STRESS" 

LET  D* (63  = "ENTER  NEUTRPL-PXI S-OUTER-F I BER-LENGTH" 

LET  D* (73  ="ENTER  UERTICPL  LOPD" 

ON  II  GOTO  2880/ 3210.3480 
GOTO  2920 

DISP  B* (33 ; " •  ENTER  1  TO  18"; 

INPUT  K 
GOTO  2940 

DISP  "ENTER  NUMBER  OF  PILES". 

INPUT  K 

IF  K>10  THEN  2890 

IF  K< 1  THEN  2890 

DISP  "ENTER  PILE  SPPCING"; 

INPUT  S6 
DISP  C* (73 . 

INPUT  Z1 
DISP  CF (83 ; 

INPUT  Z8 
DISP  C*(9J . 

INPUT  Z6 
DISP  C$ (103 . 

INPUT  27 
DISP  D*  (11  . 

INPUT  Z3 


s 


i 

J 


| 

\ 

\ 
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3988  DISP  D*C2); 

3090  INPUT  Z4 
3108  DISP  D*C33 ; 

3110  INPUT  Z2 
3120  DISP  D*C43; 

3130  INPUT  Z5 
3140  DISP  D*C53 ; 

3150  INPUT  ZS 
3160  DISP  D*C63; 

3170  INPUT  Y 1 
3180  DISP  D$  C7J ; 

3190  INPUT  Y2 

3200  GOTO  4190 

3210  DISP  "ENTER  SLOPE"; 

3220  INPUT  H2 
3230  DISP  C*C7); 

3240  INPUT  07 
3250  DISP  C*C93; 

3260  INPUT  D1 
3270  DISP  C*  C103 ; 

3280  INPUT  D2 
3290  DISP  D*C13 ; 

3390  INPUT  08 
3310  DISP  D*C23; 

3320  INPUT  B3 
3330  DISP  D*C3); 

3340  INPUT  09 
3350  DISP  D*C43; 

3360  INPUT  B4 
3370  DISP  D*C51; 

3380  INPUT  B5 
3390  DISP  D*t6J ; 

3400  INPUT  B6 
3410  DISP  D*C73 ; 

3420  INPUT  C3 

3430  FOR  J=1  TO  2  STEP  1 

3440  DISP  "ENTER  PILE  NO.,  CONT.  LENGTH"; 

3450  INPUT  J,FUJ 

3460  NEXT  J 

3470  GOTO  4190 

3480  GOTO  3520 

3490  DISP  B*C33;" :  ENTER  1  TO  10"; 

3500  INPUT  K 
3510  GOTO  3548 

3520  DISP  "ENTER  NUNBER  OF  PILES"; 

3530  INPUT  K 

3540  IF  K<1  THEN  3490 

3550  IF  K > 10  THEN  3490 

3568  LET  N7=3 

3570  LET  N8= 1 

3592  GOTO  3600 

3594  DISP  B*C3);":  ENTER  1  TO  2", 

3596  INPUT  K5 
3598  GOTO  3604 

3600  DISP  "ENTER  SHOPE  FOCTOR". 

3602  INPUT  K5 
3604  IF  w 5< 1  THEN  3594 
3606  IF  ~Lt> 2  THEN  3594 
3608  GOTO  3616 

3610  DISP  B*C3);"  ENTER  0  OR  1"; 

3612  INPUT  K3 


3614  GOTO  3620 

3616  DISP  '•  ENTER  VERTICAL  PILE  LOGIC"; 

3618  INPUT  K3 
3620  IF  K3<0  THEN  3610 
3622  IF  K3 > 1  THEN  3610 
3640  GOTO  3780 

3750  DISP  B$C33 ; "ENTER  1  TO  10"; 

3760  INPUT  N9 
3770  GOTO  3800 

3780  DISP  "ENTER  NO.  OF  SAMPLE  POINTS"; 

3790  INPUT  N9 
3800  IF  N9< 0  THEN  3750 
3810  IF  N9> 10  THEN  3750 
3820  DISP  C*  C73 ; 

3830  INPUT  A7 
3840  DISP  C*C93 ; 

3850  INPUT  D 1 
3860  DISP  C*C103; 

3870  INPUT  D2 
3880  DISP  D*C13 ; 

3890  INPUT  A8 
3900  DISP  D*  C23 ; 

3910  INPUT  B3 
3920  DISP  D*C33; 

3930  INPUT  A9 
3940  DISP  D*C43; 

3950  INPUT  B4 
3960  DISP  D*C53 ; 

3970  INPUT  B5 
3980  DISP  D*C63; 

3990  INPUT  B6 
4000  DISP  D*C73; 

4010  INPUT  C3 
4100  LET  Q  C13  =1 . 0 
4110  LET  Q  C23  =Q  C33  =0. 0 

4130  LET  Q  C43  =Q  C53  =Q  C63  =0.0 

4131  FOR  J=1  TO  K  STEP  1 

4132  DISP  "ENTER  PILE  NO..X.Y.AND  2  COOR."; 

4133  INPUT  J , X  CJ3 ,  Y  CJ3  ,  Z 

4134  NEXT  J 

4135  FOR  J=1  TO  K  STEP  1 

4136  DISP  "ENTER  PILE  NO. , SLOPE , ANGLE , CANT .  LENGTH" 

4137  INPUT  J.HCJ3  ,ECJ3  ,FCJ3 

4138  NEXT  J 

4140  IF  N9=0  THEN  4190 
4150  FOR  J=1  TO  N9  STEP  1 

4160  DISP  "ENTER  SAMPLE  POINT  X,Y,Z  COOR."; 

4170  INPUT  J.PCJ,  13  ,PCJ,23  .PCJ.33 
4180  NEXT  J 

4190  DISP  R*; 

4191  INPUT  S* 

4192  IF  S*="YES"  THEN  2870 

4195  PRINT  TABC323 ; "UI.  FENDER  DATA" 

4200  PRINT  TAB C323  ;  " _ _ _ " 

4210  PRINT 

4220  PRINT  TABC103 ; "VARIABLE"; TABC503; "UNITS" 

4230  PRINT 

4240  ON  12  GOTO  4250.4380,4523 
4250  PRINT  TABC103 ; "A-COEFF ICIENT" 

4260  PRINT  TABC103 ; "B-COEFFICIENT" 

4270  PRINT  TABC103 ; "C-COEFFICIENT" 
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4280  PRINT  TAB C 103 ; "MAXIMUM  DEFLECTION**;  TRB (503  ;  “INCH" 

4290  COSUB  9080 

4300  DISP  "ENTER  A-COEFFICIENT"; 

4310  INPUT  04 

4320  DISP  "ENTER  B-COEFF I Cl ENT"; 

4330  INPUT  82 

4340  DISP  "ENTER  C-COEFFICIENT"; 

4350  INPUT  C2 

4360  DISP  "ENTER  MAXIMUM  DEFLECTION"; 

4370  INPUT  D3 
4375  GOTO  4505 

4380  PRINT  TABC103 ; "WEIGHT  OF  COUNTER-WE I GHT CC-W3  AND  FEND. " ; TAB C503 ; "K I P“ 
4390  PRINT  TABC103 ; "DISTANCE  BETWEEN  C-W  RND  SUPPORT"; TAB C503 ; "INCH" 

4400  PRINT  TAB C103 ; "ANGLE  BETWEEN  TRRCT  OF  C-W  RND  HORIZ. "; TAB (503 ; "DEGREE" 
4410  PRINT  TABC103 ; "COEFFICIENT  OF  FRICTION" 

4420  GOSUB  9080 

4430  DISP  "ENTER  WEIGHT"; 

4440  INPUT  W3 

4450  DISP  "ENTER  DISTANCE"; 

4460  INPUT  FI 

4470  DISP  "ENTER  ANGLE"; 

4480  INPUT  T 1 

4490  DISP  "ENTER  COEFF.  OF  FRICTION"; 

4500  INPUT  P3 
4505  DISP  R*; 

4520  INPUT  S* 

4521  IF  S*="YES"  THEN  4240 

4522  GOTO  4525 

4523  PRINT  TABC183;"NO  FENDER  USED  TO  NODEL  THIS  SYSTEH" 

4524  GOSUB  9000 

4525  PRINT  TAB C253 ; "UI I .  SYSTEN  CONFIGURATION  DATA" 

4530  PRINT  TABC253;" _ _ _ _ " 

4540  PRINT 

4550  PRINT  TABC103 ; "UARIABLE"; TAB C503 ; "UNITS" 

4560  PRINT 

4570  PRINT  TAB C103 ; "NUMBER  OF  PILE  GROUPS" ; TAB C603  ; " C<  =  1 23  " 

4580  PRINT  TRBC103 ; "NUMBER  OF  FENDERS"; TAB (603 ; ” C< = 1 23 " 

4590  PRINT  TABC103 ; "SPACING  BETWEEN  PILE  GROUPS"; TAB C503 , "INCH" 

4600  GOSUB  9080 
4610  GOTO  4618 

4612  DISP  B$  C31 ; " •  ENTER  1  TO  12"; 

4614  INPUT  N6 
4616  GOTO  4622 

4618  DISP  "ENTER  NO.  OF  PILE  GROUPS"; 

4620  INPUT  N6 
4622  IF  N6>12  THEN  4612 
4624  IF  N6< 1  THEN  4612 
4626  GOTO  4634 

4628  DISP  B*C33;":  ENTER  0  TO  12", 

4630  INPUT  N3 
4632  GOTO  4638 

4634  DISP  "ENTER  NO.  OF  FENDERS"; 

4636  INPUT  N3 
4638  IF  N3>12  THEN  4628 
4640  IF  N3< 0  THEN  4628 
4650  DISP  "ENTER  SPACING"; 

4660  INPUT  H3 

4662  DISP  R*; 

4663  INPUT  S* 

4664  IF  S*= "YES"  THEN  4618 
4670  PRINT  TAB (323  ; "UI 1 1 .  BEAM  DATA" 
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4680  PRINT  TAB  (323  .  " _ _ _ “ 

4698  PRIMT 

4700  LET  D*£83="MODULUS  OF  ELASTICITY" 

4718  LET  D$  £93  =  "MOMENT  OF  IMERTI A" 

4720  LET  D*£103="AREA" 

4730  PRIMT  TOB  £313  ;  "SUPPORT  BEAMS  CS.B.J** 

4740  PRIMT 

4750  PRIMT  TAB£103 i "VARIABLE"; TAB £503 ; "UNITS" 

4760  PRIMT 

4770  PRIMT  TAB  £103 ;  D*  £83 ; TAB  £503 l "K I P/ I NCH**2" 

4780  PRIMT  TAB  £103  ;  D*  £93  ;  TAB  £503  ;  ,,INCH**4‘' 

4790  PRIMT  TAB  £103  ; D$  £ 103  ;  TAB  £503  ;  “INCH** 2" 

4800  IF  1201  THEM  4890 
4810  GOSUB  9040 

4820  PRIMT  TAB £313 ; "FENDER  BEAM£F. B. 3 " 

4830  PRIMT 

4840  PRIMT  TAB  £103 ; “VARIABLE"; TAB  £503  i "UMiTS" 

4850  PRIMT 

4860  PRIMT  TAB£103  ;D*£83  ;TAB£503  ;  "KIP/'INCH**2" 

4870  PRIMT  TAB  £103  ;  D*  £93  ;  TAB  £503  i  “IMCH**4‘* 

4880  PRIMT  TAB£103 ;D*£183 ;TAB£503 ; “IHCH**2" 

4890  GOSUB  9080 

4900  DISP  "EMTER  S.B.  MODULUS  OF  ELAST."; 

4910  INPUT  E2 

4920  DISP  "EMTER  S.B.  MOMENT  OF  I."; 

4930  INPUT  R1 

4940  DISP  "EMTER  S.B.  AREA"; 

4950  IMPUT  R2 

4960  IF  1201  THEM  5030 

4970  DISP  "EMTER  F.B.  MODULUS  OF  ELAST."; 

4980  IMPUT  E3 

4990  DISP  "EMTER  F.B.  MOMEMT  OF  I."; 

5000  IMPUT  R3 

5010  DISP  "EMTER  F.B.  AREA"; 

5020  IMPUT  R4 

5030  DISP  R*; 

5031  IMPUT  S* 

5032  IF  S*="YES"  THEM  4900 

5033  PRIMT  TAB  £283  ; "IX.  JOINT  COORDINATE  DATA" 

5040  PRIMT  TAB  £283  ;  " _ _ _ _ " 

5050  PRIMT 

5060  IF  13=1  THEM  5170 

5070  IF  12=1  THEM  5100 

5080  LET  L3=N6*2+2 

5090  GOTO  5110 

5100  LET  L3=3*M3+4-£N3-N63 

5110  PRIMT  TAB  £103 ; "VARIABLE"; TAB  £503 ; "UMITS" 

5120  PRIMT 

5130  PRIMT  TAB£103 ; "JOIMT  NUMBER"; TAB  £603  ; " £<=403 " 

5140  PRIMT  TAB  £103 ; "X-COORD INATE" ; TAB £503  ; "INCH" 

5150  PRIMT  TAB£103 ; "Y-COORDINATE"; TAB£503 ; "IMCH" 

5160  GOTO  5180 

5170  PRIMT  TAB£213 ; "JOINT  COORDINATES  GENERATED  INTERNALLY" 

5180  GOSUB  9080 

5190  IF  13=1  THEM  5240 

5200  FOR  J=1  TO  L3  STEP  1 

5210  DISP  "EMTER  JOIMT  MO..X,  AMD  Y  COORD."; 

5220  IMPUT  J.G£J3,R£J3 

5230  MEXT  J 

5231  DISP  R*; 

5232  IMPUT  S* 
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“5233  IF  S«-“Yit5“  THEN  5288 

5249  PRINT  T»0C30O;"X.  RIGID  SUPPORT  DOTH* 

5258  PRINT  T«8t383i“ _ “ 

5268  PRINT 

5278  IF  U1=2  THEN  5388 

5288  PRINT  T«8(32J; “NO  RIGID  SUPPORTS'* 

5298  GOTO  5498 

5388  PRINT  TRBC103  i  “VRRIR0LE"; TR8C503  ;  "UNITS'* 

5318  PRINT 

5328  PRINT  TR8C109  ;  **NUNBER  OF  RIGID  SUPPORTS'*; TUB (683  ;  "«  =  121 " 
5338  PRINT  T OB (183 ;  “SPRING  NUN8ER** 

5348  GOSU8  9888 

5341  GOTO  5358 

5342  OISP  B$C33 ;  **:  ENTER  1  TO  12"; 

5343  INPUT  NS 

5344  GOTO  5362 

5358  DISP  "ENTER  NO.  OF  RIGID  SUPPORTS"; 

5368  INPUT  N5 

5362  IF  N5>12  THEN  5342 

5378  IF  N5=0  THEN  5498 

5388  LET  L4=CN54133/'14 

5398  LET  L4=IHTCL43 

5488  FOR  19=1  TO  L3  STEP  t 

5418  LET  J=CI9-13*14-H 

5428  LET  L5=J*13 

5438  LET  L5=INTCL53 

5448  FOR  J9=J  TO  L5  STEP  1 

5458  DISP  "ENTER  SPRING  NUMBER"; 

5468  INPUT  NCJ93 
5478  NEXT  J9 
5488  NEXT  19 

5481  DISP  R*; 

5482  INPUT  S» 

5483  IF  S»="YES”  THEN  5358 
5490  GOTO  9198 

9888  FOR  19=1  TO  5  STEP  1 
9810  PRINT 
9020  NEXT  19 
9838  RETURN 

9040  FOR  19=1  TO  2  STEP  1 
9050  PRINT 
9860  NEXT  19 
9870  RETURN 

9888  FOR  19=1  TO  10  STEP  1 
9898  PRINT 
9188  NEXT  19 
9118  RETURN 

9178  REN  - 

9188  REN  URITE  INTO  FILE  INPUT 

9198  REN  - 

9198  URITE  ri.RS 

9288  URITE  : 1, II- 12# 13. 14, 15, 17, U1 

9210  URITE  : 1,U,U2,L2,fl6,P2,G1,C3,E1 

9220  ON  It  GOTO  9238,9278,9338 

9238  URITE  : 1,K,S6 

9248  URITE  : 1 ,Z1, Z8.Z6. 77,23,24 

9258  URITE  : 1,Z2,Z5.Z9, VI. Y2 

9268  GOTO  9428 

9270  URITE  : 1.H2 

9288  URITE  :  1,f»7,D1,D2, R8,B3,R9,D4,B5,B6,C3 
9298  FOR  J=1  TO  2  STEP  1 
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9300  WRITE  : 1 j  J  » F CJ1 
9310  NEXT  J 
9320  GOTO  9420 

9330  WRITE  : 1 , K, N7, N8, K5, K3, N9 

9340  WRITE  : 1 , R7, D1 , D2, R8, B3, R9, B4 , B5, B6, C3 

9350  FOR  J  =  1  TO  K  STEP  1 

9360  WRITE  1 >  J  *  X (J)  >  Y  CJ3  , Z«  N  CJ3  » E  CJ3  .F  CJ3 
9365  NEXT  J 

9370  WRITE  :  1  *  Q  Cl)  >  Q  C23  >  Q  (31  *  Q  C43 , 0  C5 J  j  Q  C63 

9380  IF  N9=0  THEN  9420 

9390  FOR  J=1  TO  N9  STEP  1 

9400  WRITE  -  A,  J,PCJ,  13  ,PCJ»23  ,PCJ,  3D 

9410  NEXT  J 

9420  IF  1201  THEN  9440 
9430  WRITE  :  1,R4,B2,C2,D3 
9440  IF  1202  THEN  9460 
9450  WRITE  : 1 , W3, F 1 , T 1 - P3 
9460  WRITE  :1,N6,N3,H3 
9470  WRITE  :1,E2,R1,R2 
9480  IF  1201  THEN  9500 
9490  WRITE  : 1 , E3>  R3>  R4 
9500  IF  13=1  THEN  9540 
9510  FOR  J=1  TO  L3  STEP  1 
9520  WRITE  : 1, J, GCJ3 ,RCJ3 
9530  NEXT  J 

9540  IF  U1=1  THEN  9650 

9550  WRITE  :1,N5 

9560  IF  N5=0  THEN  9650 

9570  FOR  19=1  TO  L4  STEP  1 

9580  LET  J=I9-1+14+1 

9590  LET  L5=J+13 

9600  LET  L5= INT  CL5J 

9610  FOR  J9=J  TO  L5  STEP  1 

9620  WRITE  :  1,NCJ93 

9630  NEXT  J9 

9640  NEXT  19 

9650  REN  - 

9660  CHRIN  "♦HHINE** 

9670  REN  - 

9999  END 

END  OF  LISTING 


FILE  *NRINL4 


0005  REN  ********************************************************************** 
0010  REN  SUBROUTINE  NRINL4 CFRON  352  CONTINUE  TO  END} 

0015  REN  ***************** 

0020  FILES  RR.BB 
0025  DCL  SINGLE 
0030  SETW  : 1  TO  1 
0035  SETW  2  TO  1 

0040  REN  - 

0045  REN  RERD  FROM  FILES 

0050  REN  - 

0055  FOR  19=1  TO  30  STEP  1 
0060  RERD  : 1, J Cl 9} ,LCI93 
0065  NEXT  19 
0070  RERD  : 1  *  N9 


0075  FOR  19=1  TO  NS  STEP  1 

0080  READ  1.DCI9J 

0085  NEXT  IS 

0090  READ  : 1 #  Y1 

9095  FOR  19=1  TO  Y1  STEP  1 

0100  READ  - 1,SCI93 

0105  NEXT  IS 

0110  FOR  19=1  TO  10  STEP  1 

0115  FOR  J9=1  TO  60  STEP  1 

0120  READ  : 1,HCI9, J93 
0125  NEXT  J9 
0130  NEXT  IS 

0135  FOR  19=1  TO  25  STEP  1 

0140  READ  '1>NCI9J#TCI9J/PCI9).,UCI9J,ACl9D»FCI9D,RCI93 
0145  NEXT  IS 

0150  READ  : 1, II,  13, N2, I6,N3,N5, I ,  S2, P2, N6, K,C1 , A1,B1, A2 

0151  IF  11=1  THEN  155 

0152  READ  : 1, 12 

0155  FOR  19=1  TO  25  STEP  1 

0160  FOR  J9=1  TO  18  STEP  1 

0165  READ  :1.HCI9>J9J 

0170  NEXT  J9 

0175  NEXT  19 

0180  FOR  19=1  TO  K  STEP  1 
0185  READ  1  >  E  CI93 
0190  NEXT  19 
0195  READ  2, 17, HI 

0300  REN  - 

0305  REN  D I HENS I ON I NG  OF  ARRAYS 

0310  DIN  HC25,  183  ,NC25J  , T C25I  ,DC253  ,UC253  ,AC25J  ,FC25J  ,RC25) 

0315  DIN  SC403  ,LC38?  J  C303 , H C10, 60] , D C 1923 , E C25D , P C25) . X C21 J . U (21 J . Y C21J 

0320  REN  - 

0500  IF  IIOI  THEN  518 

0505  LET  12=3-3*13 

0510  LET  14=1 

0515  IF  N1=3  THEN  695 

0520  FOR  19=1  TO  N2  STEP  13 

0525  LET  12=12+3*13 

0530  IF  L  C 1 9J  =0  THEN  690 

0535  IF  J  C 193  = 1  THEN  690 

0540  LET  15=12+1 

0545  LET  J 1=12*3 

0558  LET  J 2= I 5*3 

0555  LET  D1=  CD C J 2- 1J -D (J1-1JDt2 

0560  LET  D2=  CD CJ2-2J -D CJ1-2J)t2 

0565  LET  D3=SQR  CD1+D2I 

0570  IF  16=1  THEN  585 

0575  LET  D3=D3*2. 0 

0580  LET  SCI9J=SCI9)^2.0 

0585  LET  S1=S CI9J 

0590  LET  D4=D3 

0595  LET  H1=N3*3+2+I9 

0600  LET  N4= INT  C  C 19+  C 1 3- 1 J  3 / 1 31 

0605  LET  J 3=  1 2  _  _  ^ 

0610  LET  J 4=  1 5  000012 

0615  IF  1600  THEN  645 
0620  LET  N4=M-C3*N3+2) 

0625  LET  H1=N4+  CN3+13 
0630  LET  J3=2*N4 
0635  LET  J4=J3+1 


0640  GOTO  670 

0645  IF  1601  THEN  670 

0650  IF  N5=0  THEM  670 

0655  LET  N1=N4+C3*N3+23 

0660  LET  J3=5+CN4-13*C2*N5+33-2 

0665  LET  J4=J3+1 

0670  GOTO  671 

0671  FOR  LS=1  TO  5  STEP  1 

0672  PRINT 

0673  NEXT  L9 

0675  REN  - 

0680  GOSUB  1040 

0685  REH  - 

0680  NEXT  19 

0695  GOTO  700 

0700  IF  HOI  THEN  710 

0705  LET  1=1-1 

0710  IF  17=1  THEN  815 

0715  FOR  19=1  TO  8  STEP  1 

0720  PRINT 

0725  NEXT  19 

0730  PRINT  TABC283  ;  "CONVERGENCE  SUHNARY" 

0735  PRINT  TABC283;" _ _ " 

0740  PRINT 

0745  PRINT  TABC183 ; “NUNBER  OF  LOOPS";  TAB C413 ; “DYNAMIC". TUB C563  ; "NUNBER  OF  LOOPS" 
0750  PRINT  TABC63 ; "TINE"; TAB C203 ; “FOR  DYNANIC" , TAB C393 , "CONVERGENCE" , TAB C58 3 . 
0755  PRINT  "FOR  STATIC" 

0757  PRINT  TABC53 ; "INSTANT"; TABC203 ; "CONUERGENCE TABC393 , "LOOP  NUNBER"/ TAB (573 , 
0759  PRINT  "CONUERGENCE" 

0760  FOR  19=1  TO  25  STEP  1 
0765  IF  H  09  /  13  =0  THEN  815 
0770  FOR  J9=1  TO  18  STEP  1 
0775  IF  NCI9.J93=0  THEN  810 
0780  IF  J9<>1  THEN  795 

0785  PRINT  USING  790/  19/ NCI93  ,  J9,  H  09,  J93 

0790  :  ###  ii»  «««• 

0795  IF  J9<=1  THEN  805 

0800  PRINT  USING  803,  J9 ,  N  09 ,  J93 

0803  : 

0805  NEXT  J9 
0810  NEXT  19 

0815  FOR  19=1  TO  8  STEP  1 
0820  PRINT 
0825  NEXT  19 

0830  PRINT  TAB C133 ; "OUTPUT  OF  DYNANIC  DATA  AT  THE  POINT  OF  INPACT" 

0835  PRINT  TAB  Cl 33  ;  " _ _ _ _ _ _ _ _  _ " 

0840  PRINT 

0845  PRINT  TAB  C53 ; "STEP"; TAB C12J ; "TINE"; TAB  C213 ; "DEFL ",  TAB  C263 ; “UELOCITY", 

0847  PRINT  TABC373 ; "ACCELERATION"; TAB C523 ; "FORCE"; TAB C603 , "SPRING  K" 

0849  PRINT  TAB (63 ; "NO"; TAB C 123 ; "(SEC3 ", TABC213 ; "CIN3 "; TAB  C263 , "CIN/SEC3 ", 

0851  PRINT  TAB C383  ;  "CIN/SEC**23  ";TABC533  ,  "  CIO  ",  TAB C6 13  ;  "CK/'IN3  " 

0855  FOR  19=1  TO  I  STEP  1 

0860  PRINT  USING  865 ,  1 9,  T  093  ,  P 093  .  U  (1 93  .  A 0  93  ,  F  C 193  ,  R  Cl 93 
0865  :  tit 

0870  NEXT  19 
0875  LET  1=1-1 
0876  IF  IO0  THEN  880 
0877  LET  1=1 
0880  LET  E 1=0. 0 
0885  FOR  19=1  TO  8  STEP  1 


000013 


6890  PRINT 
0895  NEXT  19 

0900  PRINT  TAB(123 ; "OUTPUT  OF  KINETIC  AND  POTENTIAL  ENERGY  FOR  SYSTEN" 

0905  PRINT  TAB (123 ; “ _ _ _ _ _ _ _ _ “ 

0910  PRINT 

0915  PRINT  TAB  (53 ; “STEP"; TAB (293 ; "KINETIC"; TAB (443 , "POTENT  I AL". TAB (613 , "TOTAL" 
091?  PRINT  TAB (63 ; "NO"; TAB (173 ; “T IHE "; TAB (303 ; "ENERGY"; TAB (463 ; "ENERGY"; TAB (613 
0919  PRINT  "PE+KE" 

0921  PRINT  TAB (173 ; “ (SEC3 "; TAB (303 ; "(K*IN3 "; TAB (463 ; "(K*IN3 "; TAB (613 ; "(K*IN3 " 

0930  FOR  19=1  TO  I  STEP  1 

0935  LET  E2=S2*U(I93t2/’2.0 

0940  LET  E3=E2+E 1 

0945  LET  T 1 =E 1 

0950  PRINT  USING  953, 19, T (193 , E2, El , E3 

0953  :  ft*  ttt.ttft  ftttfff.tif  ftfftftf.ftf  fttmttt.m 

0955  LET  E 1=E 1+ (F ( 1 93  *F (1 9+ 133* (P (1 9+13 -P(1 93 3^2.0 
0960  NEXT  19 

0965  LET  T2=S2*U(13 t2^2.0 

0970  LET  E4=(T2-T13  /’T2*100.  0 

0975  FOR  19=1  TO  4  STEP  1 

0980  PRINT 

0985  NEXT  19 

0990  PRINT  USING  995, T2 

0995  :  TOTAL  KINETIC  ENERGY  OF  SHIP=  ttfffttt.t*  K**IN 

1000  PRINT  USING  1005, T1 

1005  :  TOTAL  POTENTIAL  ENERGY  OF  FENDER=  *••*•**«. ft  K**IN 

1006  FOR  19=1  TO  5  STEP  1 

1007  PRINT 
1088  NEXT  19 

1009  PRINT  TAB (203 ; "**♦♦*♦*****♦♦*♦*•****•********•♦*♦•*****" 

1010  PRINT  USING  1015, E4 

1015  *  ERROR=  fiftf.if  PERCENT  * 

1016  PRINT  TAB (203 ; "***»♦**♦****♦**•*♦*•*♦*******#*•*****»♦*" 

1020  GOTO  8000 

1025  REN  - 

1030  REN  SUBROUTINE  PLA 

1035  REN  - 

1040  IF  14=1  THEN  1055 

1045  LET  P 1 =P2 

1046  REN  PRINT  "P2=";P2 
1050  GOTO  1060 
1055  LET  P1=S1*D4 
1060  GOTO  1065 
1065  ON  N6  GOTO  1070,1225 
1070  LET  K1=1 
1075  LET  P1=P1^K 
1080  LET  H1=E(K13'20.0 
1085  LET  H2=-H1 
1090  LET  T3=P1*H(K1,K1*6*53 
1095  LET  P3=C1/A1 
1100  IF  14=1  THEN  1120 
1105  PRINT  TAB(313 ; "FAILED  PILE" 

1110  PRINT  TAB  (313  ;  " _ _ " 

1115  GOTO  1130 

1120  PRINT  TAB(293 , "RENAINING  PILE" 

1125  PRINT  TAB  (293  ;  " _ _ " 

1130  PRINT 

1135  PRINT  USING  1137, HI 

1137  :  NENBER  NUNBER  ••** 

1139  PRINT  USING  1141.N4 


1141 
1 143 
1 145 
1 147 
1 14S 
1151 
1153 
1155 
1157 
1185 
1170 

1175 

1176 
1178 
1180 
1 185 
1190 
1195 
1200 
1205 
1210 
1215 
1220 
1225 
1230 
1235 
1240 
1245 
1250 
1255 
1260 
1265 
1270 
1275 
1280 
1285 
1290 
1295 
1300 
1305 
1310 
1315 
1320 
1325 
1330 
1335 
1340 
1345 
1350 
1355 
1360 
1365 
1370 
1375 
1380 
1385 

1390 

1391 

1392 
1396 
1398 


SPRING  NUNBER 
PRINT  USING  1145, J3 
STARTING  JOINT 
PRINT  USING  1149, J4 
ENDING  JOINT 
PRINT  USING  1153, PI 
FORCE 


•••* 


•••• 


*#*• 


PRINT 

PRINT 

PRINT  TAB(53 ; "DISTANCE  FRON"; TAB (333 ; "HORIZONTAL"; TAB (483 ; "VERTICAL" 
PRINT  TAB  (63 ; "TOP  OF  PILE"; TAB (223 ; "NONENT"; TAB (353 ; "SHEAR"; TAB (493 ; 
PRINT  "SHEAR"; TAB  (613 ; "STRESS" 


PRINT 

PRINT 

PRINT 

PRINT 


PRINT  TAB (93 ; " CFT3 "; TAB (223 , "(F 
PRINT  "(K/IN**23" 

FOR  J9= 1  TO  21  STEP  1 
LET  H2=H2+H1 
LET  X1=T3+P1*H2 
LET  S4=P3+X1*B1/'A2 
LET  S4=S4^144.0 

PRINT  USING  1210, H2, XI, PI, Cl, S4 

**•».*§••  **•».§*#• 

NEXT  J9 
GOTO  1530 

LET  F2=A2*E (13 ✓ (A2*E (23  3 

LET  F3=F2+ 1.0 

LET  U1=H (1 , 113 -H (1,53 

LET  X1=P1*U1 

LET  U1=-X1>'F3 

LET  B2=X1*F2^F3 

LET  V2=X1'(2.0*F33 

LET  B3=-X1*F2/(2.0*F33 

LET  D5=SQR(E(23t2-E(13t23 

LET  H3=3.0*X1^(2.0*E(13*F33 

LET  T 4=ATN (D5^E  (133 

LET  H4=H3*C0S (T43 

LET  U3=3.0*X1^(2.0*D53 

LET  U4=-U3 

LET  D6=E(13^20.0 

LET  D7=E (23  ^20. 0 

LET  D8=-D6 

LET  D9=-D7 

LET  P4=C1/”A1 

LET  P5=C1^A1 

IF  14=1  THEN  1345 

PRINT  TAB(313 ; "FAILED  PILE" 

PRINT  TAB  (313  ;  " _ _ " 

GOTO  1355 

PRINT  TAB (303 ; "RENAINING  PILE" 

PRINT  TAB (303  ;  " _ _ " 

PRINT 

PRINT  USING  1137, N1 
PRINT  USING  1141, N4 
PRINT  USING  1145, J3 
PRINT  USING  1 149, J4 
PRINT  USING  1153, PI 
PRINT 
PRINT 

PRINT  TAB(303  ; "PILE  1  (VERTICALS 
PRINT  TAB (23 ; "D I ST .  FRON"; TAB (3 
PRINT  TAB (13 ; "TOP  OF  PILE";TAB( 
PRINT  "SHEAR"; TAB(613 ; "STRESS" 


TAB (223 , " (FT*K3 "; TAB (363 ; " (K3 "; TAB (503 ; " (K3 "; TAB (593 


»*«.§••• 


•§•.*••• 


000015 


TAB(303  ; "PILE  1 (VERTICALS  " 

TAB (23 ; "DIST.  FRON" ; TAB (343 , "HOR. "; TAB (483 ; "VER. " 

TAB (13 ; "TOP  OF  PILE"; TAB (203 ; "NONENT"; TAB (343 ; "SHEAR" ; TAB (483 , 
"SHEAR"; TAB(613 ; "STRESS" 


1402  PR II1T  TABC203  ;  “  CFT*K3  **;  TAB  C353  ;  "CIO  ";TABC493  ;  “  CIO  TABC603  ;  "CK>'IN**23  "; 

1410  FOR  J 9= 1  TO  21  STEP  1 

1415  LET  D8=D8+D6 

1420  LET  D9=D9+D7 

1425  LET  G1=SQRCD9t2-D8t23 

1430  LET  G2=05-G1 

1435  LET  G3=E  C 13 -D8 

1440  LET  X2=G3^E C13*U1+D8/EC13*U2 

1445  LET  XCJ93=G1/D5*B3+G2/D5*B2 

1450  LET  S5=P4+X2*B1-''A2 

1455  LET  YCJ93=P5+XCJ93*B1^A2 

1460  LET  S5=S5/144.0 

1465  LET  YCJ93=YCJ93/144.0 

1467  LET  U  C J93  =D8 

1470  PRINT  USING  1475, D8, X2, H3, U4 , S5 

1475  :  »»«.»•  •*#.••*•  m.ttt*  *•».»«•  *««.«#•§ 

1480  NEXT  J9 

1481  FOR  J9=1  TO  2  STEP  1 

1482  PRINT 

1483  NEXT  J9 

1485  PRINT  TAB C303 ; “PILE  2  CBATTERED3 “ 

1490  PRINT  TABC33 ; "DIST.  FRON“; TAB C343 ; “HOR. "; TAB C483  ;  "UER.  " 

1495  PRINT  TAB  C23 ; "TOP  OF  PILE TAB C203  ; “HOHENT "; TAB C343  ; "SHEAR" ; TAB C483  ; 
1500  PRINT  "SHEAR"; TAB C613 ; "STRESS" 

1505  PRINT  TAB  C193  ;  "  CFT#^K3  TAB  C353  ;  "  CIO  ";  TAB  C493  ;  "  CIO  ";  TAB  C603  ;  "  CK^IN**23  " 
1510  :  *•*.#*  »•«.«•*«  **».»*#•  *#».**#•  **».##•• 

1515  FOR  J9=1  TO  21  STEP  1 

1520  PRINT  USING  1510, U CJ93 , X CJ93 , H4, U3, Y CJ93 
1525  NEXT  J9 
1538  RETURN 

3000  DISP  "  END  OF  JOB" 

9999  END 

END  OF  LISTING 


OLD  *I1AINL2 
LIST 

FILE  ♦HRINL2 


0005  REN 

0010  REN  SUBROUTINE  NAINL2  CFRON  DIAG  TO  INK=3 

0015  REN  ********************************************************************** 

0020  FILES  C09; C08; Cl ; CONI ; P; N1 ; AC; AR; KLOOP 
0025  DCL  SINGLE 

FRAHE  ANALYSIS" 


0027 

0029 

0030 

0031 

0035 

0040 

0042 

0043 

0044 


DISP 

SETU 

SETW 

SETU 

SETU 

SETU 

SETU 

SETU 

READ 


TO 

TO 

TO 

TO 

TO 

TO 

TO 


000016 


5 , U6, Z 1 , 22 , Z3 


0045  REN  - 

0046  REN  READ  FRON  FILES 

0047  REN  - 

0048  FOR  19=1  TO  25  STEP  1 
0049  FOR  J9= 1  TO  18  STEP  1 


0050  REPD  : 8*  L  CI9 j  J93 
0051  NEXT  J9 
0052  NEXT  19 

0053  FOR  19=1  TO  25  STEP  1 

0054  READ  8,MCI93 ,TCI93 ,DCI93 ,0(193 ,BCI93 ,FCI93 .SCI93 

0055  NEXT  19 

0056  IF  U6=1  THEM  70 

0057  READ  : 1, I.FCI3 >TCI3 ,P1,A2 

0067  READ  : 4»  A  C 13 

0068  READ  5,FCI3 

0069  GOTO  465 

0070  READ  :1,I,FCI3,TCI3,P1,A2,S1,VCI3,M1.U1,D1,A4,A5 
007'  READ  2,D4,D5,K3 
00?.*.  READ  :  6  >  K2 
0073  READ  5.FCI3 

0075  REM  - 

0080  REM  DIMENSIONING  OF  ARRAYS 

0085  DIM  F  C253  ,SC253  ,  T  C253  ,UC253  ,LC25,  183  , M (253  , D (253  ,  R(403  ,  A(203  -BC253 

0090  REM  - 

0455  REM  - 

0460  REM  REDIRECT  PROGRAM  FLO0  TO  START  THIS  SUBROUTINE  AFTER  FRAME 
0465  IF  U6= 1  THEN  555 

0470  REM  - 

0475  REM 
0480  REM 

0485  REM  - 

0490  REM  MAINLINE  MAINL2 

0495  REM  - 

0496  FOR  19=1  TO  40  STEP  1 

0497  LET  RCI'>3=AC13>'12.0 

0498  NEXT  19 

0499  LET  F 1=F CI3 

0500  LET  K2=0 

0501  GOTO  510 

0502  LET  F  C 1 3  =S  C 1 3  *D2 

0505  LET  F 1=F CI3 

0510  LET  T1=TCI3 

0515  LET  A1=A2*3. 14159265^180.8 
0520  LET  F2=F1*COS(P13'SIN(A13 
0525  LET  F1=F1*SINCP13/SINCA13 

0530  REM  - 

0535  REM  CALL  SUBROUTINE  FRAME 
0540  LET  U6= 1 
0545  GOTO  4000 

0550  REM  - 

0555  LET  U6=0 

0560  LET  SCI3=FCI3/'D4 

0565  LET  01=S(I3^S1 

0570  LET  02=SQR  C013 

0575  LET  03=0(13^02 

0580  LET  A3=U  1 1 3  *02 

0585  LET  F3=S(I3*U(I3^02 

0590  LET  T2=3. 14 1 59265/ C2. 0*023 

0595  LET  H1=T2'N1  000017 

0600  LET  H2=H1t2/’6.0 

0605  LET  H3=H1/’2. 0 

0610  FOR  J9= 1  TO  6  STEP  1 

0615  LET  D2=D1+H1*U1+H2*(2.0*A4+A53 

0620  LET  U2=U1+H3* (A4+A53 

0625  LET  A5=-01*D2 


0630  NEXT  J 9 

0635  LET  K1=K2*1 

06*0  LET  L  (  I  .  K  1 ) =K3 

0645  LET  fl  (  I  J  =K  1 

0650  LET  K2=K2*1 

0655  IF  K  2  >  1  7  THEN  670 

0660  LET  T3= (02-04) /D2 

0662  REN  PRINT  "TEST  IN  NPINL2  =M.T3 

0663  REN  OISP  USING  664, T3 

0664  TEST  IN  N01NL2=»«».  •••••••• 

0665  IF  PBS (T3) -0.05>=0  THEN  502 
0670  GOTO  675 

0675  IF  D5>=0. 00001  THEN  685 

0680  LET  D5=D4 

0685  LET  S2=F ( I ) /D5 

0690  LET  03=S2/S 1 

0695  LET  04=SQR (03) 

0700  LET  X 1 =U ( I ) /04 

0705  LET  X2=U ( I ) *04 

9710  LET  X3=S2*U ( I ) /04 

0715  LET  X4=3. 14159265^ (2.0*04) 

0720  LET  F ( I ) =0. 0 
0721  GOTO  4000 
0725  GOSUB  3015 

0730  PRINT  "DYNPNIC  RESULTS  FOR  LINEPR  SPRINGING" 


0735  PRINT  “ _ _ _ _ _ •• 

0737  PRINT 

0740  PRINT  USING  745, XI 

0745  flPXIHUH  DEFLECTION  PT  POINT  OF  INPPCT=  §•*•.•#••  IN 
0750  PRINT  USING  755. X2 

0755  NPXIHUH  SHIP  PCCELERPT I 0N=  •«•«.••••  IN/SEC**2 


0760  PRINT  USING  765. X3 

0765  NPXINUH  SHIP  FORCE*  •••••».#•••  X 

0770  PRINT  USING  775, X4 

0775  STOPING  T INE=  »••«.»•«•  SEC 

0780  GOSUB  3015 

0782  GOTO  4000 

3000  REN  - 

3005  REN  PRINT  SUBROUTINE 

3010  REN - - 

3015  FOR  79=1  TO  4  STEP  1 
3020  PRINT 
3025  NEXT  IS 
3030  RETURN 

4000  SETW  8  TO  1 

4001  FOR  IS=1  TO  25  STEP  1 

4002  FOR  JS=1  TO  18  STEP  1 
4004  WRITE  8, L ( 19, JS) 

4006  NEXT  JS 

4008  NEXT  IS 

4010  FOR  18=1  TO  25  STEP  1 

4012  WRITE  8 ,  H  C 1 8)  ,T (IS) ,D(IS) »UCIS) ,B(IS) ,F (IS) ,S(IS) 

4014  NEXT  19 

4016  IF  U6=0  THEN  4035 

4018  SETW  5  TO  1 

4020  SETW  6  TO  1  0QQG18 

4022  WRITE  6.K2.F2.F1 
4024  IF  K2<  >0  THEN  4032 
4026  FOR  IS=1  TO  40  STEP  1 
4028  WRITE  6.RCIS) 

4030  NEXT  IS 


4032 

WRITE 

: 5,U6,Z1,Z2,Z3,F(I3 

4033 

WRITE 

9, I,K2 

4034 

CHOIN 

"♦FRONE** 

4035 

WRITE 

7, I, 01,05,02, HI, SCI3 

4037 

WRITE 

5 , U6 ,Z1,Z2,Z3,F (13 

4038 

WRITE 

9, I ,K2 

4040 

9999 

CHOIN 

END 

'•*N0INL3“ 

U1,H2,04,H3,F(I3 ,  T(I3 ,P1,02,S1,D1 


END  OF  LISTING 


FILE  *FRONE 


0005 

0010 

0015 

0016 

001? 

0018 

0019 

0020 

0025 

0035 

9040 

0045 

0047 

0050 

0055 

005? 

0058 

0060 

0065 

0066 

0073 

0076 

007? 

0078 

0078 

0080 

0081 

@085 

0088 

0089 

0090 

0092 

0094 

0096 

0097 

0098 

0099 

0100 

0101 

0103 

0105 

0110 

0115 

0326 


REN  ********************************************************************** 

REN  SUBROUTINE  FROHE 

REN  ********************************************************************** 

DCL  S01,S02,S03,Sfl4,SD1,SD2.SE1,SE2,SE3,SE4,SE5 

DCL  SH1,SI1,SI2,SI3,S15,SI6.SI7,SI4,SI8,SK1,SK2,SL1,SL2,SL3,SL(3 , SL4,SL5 
DCL  SL?,SL8,SL9,SN,SN6,SH?,SN8, SN9, SN1 , SN1 , SN3, SN4, SN5, SN6. SN7, SN8, SN9, SN1 
DCL  SN2. SN3, SN4, SN5, SP1 , SP2, SRI , SR2 , SR3 , SR4 . ST  1 , SU1 , SL6 

FILES  CONH9,CON1,CON2,COH3,CON4,CON8,CON9,C03,C05;C1.N1.ZP1,P03.00,OZ,«E,P 


SETW  1  TO  1 

REN - 

REN  REfiD  FRON  FILES 

REN - 

READ  1,1 

REOD  : 1,CCn ,05,0(13 , 06, P 1 , L 1 , L3 , H3 , N5, L6 , 15, I6,E3,H1 ,E4 

REOD  1 ,R1 ,01 ,N3,H1 ,E4 

IF  15=8  THEN  60 

REOD  ■'  1 , 02 ,  R2 ,  E5 

FOR  19=1  TO  30  STEP  1 

REOD  1,L(I93 

NEXT  19 

REOD  :  1 1 , K 1 , F3, F  2 
REN  IF  L 1 <  > 1  THEN  81 
REn  IF  K1O0  THEN  81 
FOR  19=1  TO  40  STEP  1 
REOD  11,S(I93 
NEXT  19 
SETM  12  TO  1 
REOD  12, E3 

SETW  16  TO  1  • 

SETW  1?  TO  1 

REOD  : 17,U6,N1,N4. 14, W8 

IF  U6<  >2  THEN  326 

REOD  : 16,F2,F3,K1,L1 

REN  PRINT  MK1=";K1 

IF  L 1 = 1  THEN  326 

FILE  16 , "P2" 

FOR  19=1  TO  30  STEP  1 
REOD  16.LCI93 
NEXT  19 

REN - 

REN  DINENSIONING  OF  ORROYS 

DIN  EC203  ,  L  (303  ,  T  (403  ,F(1923  ,S(403 .0(1923  ,R(823 

REN - 

IF  L 1 <  > 1  THEN  328 


000019 


032?  IF  K1=0  THEM  330 

0328  SETW  13  TO  3 

0328  READ  : 13, 14 

0330  LET  D2=0 

0332  LET  D 1=0 

0333  IF  L 1 <  >  1  THEM  385 

0334  IF  K1O0  THEM  365 

0335  FOR  18=1  TO  40  STEP  1 

0340  LET  T  C 183  =0. 0 

0345  MEXT  18 

0350  FOR  18=1  TO  182  STEP  1 

0355  LET  F  C 183  =0. 0 

0360  LET  D  CI83  =0. 0 

0364  MEXT  18 

0365  IF  L 1 >=2  THEM  36? 

0366  IF  K 1 =0  THEM  380 
0367  SETU  15  TO  1 
0368  READ  15,Z0,Z8,L3 
0368  FOR  18=1  TO  Z8  STEP  1 
0370  READ  : 15,SCI83 
0371  MEXT  10 

0372  FOR  18=1  TO  20  STEP  1 
03 73  LET  ECI83=0.0 
0374  MEXT  18 

0375  FOR  18=1  TO  Z8  STEP  1 

0376  READ  : 15,ECI0J 

037?  MEXT  18 

0380  LET  L1  =  IMT  CL13 

0382  LET  L3=IMT  CL33 

0384  LET  M3= I MT  CM33 

0386  LET  M5= IMT  CM53 

0388  LET  L6=IMT  CL63 

0300  LET  I5=IMT  CI53 

0302  LET  I6=IMT  CI63 

0384  LET  M3= I NT  CM33 

0306  LET  K 1=1 NT  CK1T 

0300  IF  L 1 <  > 1  THEM  401 

0400  IF  K 1 =0  THEM  485 

0401  FILE  :  12, "P7" 

0402  SETU  : 12  TO  1 

0403  READ  12.L6 

0404  IF  K1O0  THEM  485 

0405  IF  L10L6  THEM  414 

0406  READ  :  1 2 , M0 

040?  FOR  10=1  TO  M0  STEP  1 

0408  READ  .  12.FCI03 

0400  MEXT  10 

0410  FOR  10=1  TO  40  STEP  1 

0411  READ  '■  12,  T  (103 

0412  MEXT  10 

0413  GOTO  485 

0414  FILE  11, "OY" 

0415  SETU  11  TO  1 

0416  READ  : 1 1 , U7 

041?  FOR  10=1  TO  U7  STEP  1 

0418  READ  :  1 1 , D  C 1 0) 

0410  MEXT  10 

0485  REM  - 

0487  REM  SUBROUTINE  FRAME  MAI ML  I ME 

0488  RRM  - 

0480  REM  IF  L 1 >=2  THEN  402 

0400  REM  SUBROUTINE  FRAME  MAI ML  I ME 
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0491  REM  IF  K 1  =0  THEM  500 

0492  REM  PRINT  USING  493, F3, P 1 , F2 , L3 

0493  :  FORCEH=  »•#«.«»••  PHI  =  *•.«•••  FORCE=  «••#.»£ 

0494  FOR  19=1  TO  15  STEP  1 

0495  REM  PRINT  USING  496, E CI93 » S CI93 

0496  :  DELTfi=  *••».#**•  SPRNGK=  *•«».§«•• 

0497  NEXT  19 

0498  REM  OISP  USING  499, F2, L 1 , K 1 , L6 

0499  :  FRAME  FRCE=  I=#*i  KOUNT=t*t  LUOLD=itt 

0500  IF  BBSCP13 >=1E-7  THEN  510 

0505  LET  F1=F3/COSCP13 

0510  IF  BBS  CP13  < IE-7  THEN  520 

0515  LET  F1=F2/SINCP13 

0520  LET  F 2=F 1 

0525  LET  F3=F 1 

0530  IF  N1=0  THEN  560 

0535  IF  N 1 >0  THEN  550 

0540  LET  T1=3. 14159265^4.0 

0545  GOTO  565 

0550  LET  T1=-3. 14159265/4.0 

0555  GOTO  565 

0560  LET  T 1=0.0 

0565  LET  P2=P1+T 1 

0570  LET  F2=F2*SIN  CP23 

0575  LET  F3=F3*C0S  CP23 

0580  LET  11=0.0 

0585  IF  LIOI  THEN  597 

0590  IF  K1O0  THEN  597 

0595  LET  L2=L3 

0596  GOTO  600 

0597  LET  L2=0. 0 

0600  IF  L1=1  THEN  650 

0605  LET  N2=N3 

0610  IF  N4< 1  THEN  620 

0615  LET  N2=N5-N4*INT  CN5/CN4+133 

0620  LET  12=0.0 

0622  LET  N3=INT  CN33 

0625  FOR  13=1  TO  N3  STEP  1 

0630  IF  LCI33O0  THEN  640 

0635  LET  12=12+1 

0640  NEXT  13 

0645  IF  I 2=N2  THEN  1635 

0650  GOTO  655 

0655  IF  L1=1  THEN  750 

0660  LET  L4= I NT  CCI4-23/33 

0665  LET  12=0.0 

0670  LET  N6=INT  C  CL4+N43 / CN4  +  13  3 

0680  FOR  13=1  TO  L4  STEP  1 

0685  IF  L  Cl  33  <  >0  THEN  695 

0690  LET  12=12+1 

0695  NEXT  13 

0700  IF  I 2=N6  THEN  1675 

0705  LET  12=0.0 

0710  LET  L5=N5-L4+ 1 

0715  LET  N6=INT  C CL5+N43 / CN4+13 3 

0720  LET  N5=INT  CN53 

0722  LET  L4= INT  CL43 

0725  FOR  I 3=L4  TO  N5  STEP  1 

0730  IF  LCI33O0  THEN  740 

0735  LET  12=12+1 

0740  NEXT  13 


LDPT=  »•• 
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0745  IF  I2=N6  THEM  1675 

0750  GOTO  755 

0755  IF  L 1 <  > 1  THEM  780 

0760  IF  K1O0  THEN  780 

0765  FOR  19=1  TO  20  STEP  1 

0770  LET  £  CI93  =0. 0 

0775  NEXT  19 

0780  GOTO  785 

0785  IF  K1O0  THEN  830 

0798  IF  L10L6  THEN  830 

0795  FOR  L7= 1  TO  48  STEP  1 

0800  LET  S  CL73  =T  CL73 

0805  NEXT  L7 

0806  FILE  11,  "OY** 

0807  SETW  11  TO  1 

0808  WRITE  : 11.N9 

0810  FOR  L7= 1  TO  N9  STEP  1 

0815  LET  D  CL73  =F  CL73 

0817  WRITE  1 1 ,  D  CL73 

0820  NEXT  L7 

0825  LET  D1=D2 

0830  IF  K1O0  THEN  888 

0835  IF  L1=L6  THEN  888 

0840  FOR  L?=1  TO  48  STEP  1 

0845  LET  T  CL73  =S  CL73 

0850  NEXT  L 7 

0851  LET  H9=3*C3*N5+43 

0852  IF  L1  =  1  THEN  855 

0853  LET  N9=W7 

0855  FOR  L7=1  TO  N9  STEP  1 

0860  LET  F  CL73  =D  CL73 

0865  NEXT  L7 

8870  LET  D2=01 

0875  LET  L6=L1 

0880  LET  E1=1080.P 

0885  IF  L1<  >1  THEN  300 

0890  IF  K 1 <  >0  THEN  980 

0892  SETW  3  TO  1 

0895  WRITE  3,I5,I6,L3 

0900  IF  L1=1  THEN  910 

0902  SETW  3  TO  1 

0905  RE WO  3, 15, 16, L3 

0910  IF  K1=0  THEN  915 

0912  SETW  :3  TO  1 

0915  IF  15=0  THEN  1105 

0920  IF  LIOI  THEN  935 

0925  IF  K1<  >0  THEN  935 

0930  LET  E2=E3>'144. 0 

0935  IF  L1=1  THEN  945 

0937  SETW  4  TO  1 

0948  RERD  4,N3,N5 

8945  IF  K 1=0  THEN  955 

0947  SETW  4  TO  1 

0950  RERD  '•  4, N3, N5 

0955  LET  N4=IHT  C  CN5-N33  t (N3-13  3 

0960  IF  N4=0  THEN  1065 

0965  LET  N7=0 

0970  LET  N8=N4+1 

8975  LET  17=5 

0980  LET  K2=0 

0985  IF  L2=I7  THEN  1055 


0998  LET  N9=M5-1 

0995  LET  M9= IMT  CM93 

1000  FOR  19=1  TO  MS  STEP  1 

1005  LET  K2=K2+1 

1010  LET  17=17+2 

1015  IF  K20M8  THEM  1025 

1020  LET  17=17+1 

1025  IF  K2=M8  THEM  1035 

1030  LET  M7=M7+1 

1035  IF  K20M8  THEM  1045 

1040  LET  K2=0 

1045  IF  L3=I7  THEM  1055 

1050  MEXT  19 

1055  GOTO  1080 

1080  LET  L3=L2+M7 

1065  GOTO  1070 

1070  IF  L2<  >0  THEM  1080 

1075  LET  L3=IMTCCM5+13/23*3+2 

1080  LET  M1=N5-IMTCM5^23*2 

1085  IF  H1<  >0  THEM  1095 

1090  LET  L3=L3+3 

1095  LET  I 4=L3 

1100  GOTO  1230 

1105  IF  L1<  >1  THEM  1120 

1110  IF  K 1 <  >0  THEM  1120 

1115  LET  E2=E3/144.0 

1120  LET  L3=IMT  C CL3+13 *3^23 -1 

1125  IF  L2<  >0  THEM  1135 

1130  LET  L3=IMTCCM3+13 ✓23*3+2 

1135  LET  M1=M3-  IMT  CM3/'23  *2 

1140  IF  M1<  >0  THEM  1150 

1145  LET  L3=L3+3 

1150  LET  I 4=L3 

1155  IF  L 1 <  > 1  THEM  1170 

1180  IF  K1O0  THEM  1170 

1162  SETU  3  TO  3 

1165  URITE  :3,M3,H1,E4,E2,R1,R1 

1170  IF  L 1= 1  THEM  1180 

1172  SETM  :3  TO  3 

1175  RERD  3,M3,H1,E4,E2,R1,R1 

1180  IE  K 1=0  THEM  1190 

1182  SETW  3  TO  3 

1185  RERD  3,M3,H1,E4,E2,R1,R1 

1190  LET  M5=M3 

1195  LET  E5=E4 

1200  LET  E4= 100. 0 

1205  LET  E 1=E2 

1210  LET  R2=R1 

1215  LET  R1=10.8 

1228  LET  R2=R1 

1225  LET  R1=1 . 0 

1230  IF  L 1 <  > 1  THEM  1245 

1235  IF  K 1 <  >0  THEM  1245 

1237  SETU  4  TO  1 

1240  URITE  4,M3,M5,H1,E5,E4,E2,E1,R2,R1,R2,R1 
1245  IF  L1=1  THEM  1255 
1247  SETU  4  TO  1 

1250  RERD  4,M3»M5,H1,E5.E4,E2»E1,R2.R1,R2,R1 
1255  IF  K 1 =0  THEM  1265 
1257  SETU  4  TO  1 

1260  RERD  4,M3,M5,H1,E5.E4.E2,E1,R2,R1,R2,R1 
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1265  LET  F 4=F2 
1270  LET  L8=L3 
1275  LET  F2=0.0 
1280  LET  L9=L8+3 
1285  GOTO  1280 

1290  RE fl  N4=  THE  NUMBER  OF  SPRINGS  WHICH  HOUE  O  K  URLUE  OF 
1295  REN  ZERO  BETWEEN  TWO  CONSECUTIUE  SUPPORT  SPRINGS 
1300  LET  N4=INT  C  CN5-N33  * CN3- 13  J 
1305  LET  H2=N3 
1310  IF  L1<  >1  THEN  1370 
1315  IF  K1O0  THEN  1370 
1320  LET  N3=N3 
1325  LET  N4=N5 
1330  LET  N3=INT  CN33 
1335  FOR  19=1  TO  N3  STEP  1 
1340  LET  N4=INT  CN4J 
1345  LET  N3=INT  CN31 
1350  LET  S  CN4J  =S  CH3J 
1355  LET  N4=H4- CN4+13 
1360  LET  N3=H3-1 
1365  NEXT  19 
1370  LET  N3=N5 
1375  LET  U1=20 
1380  LET  R3=0. 00001 
1385  LET  R4=0. 00001 
1390  LET  R3=1.0 
1395  LET  04=1.0 
1400  LET  N3=INT  CN3J 
1402  SETW  :5  TO  1 
1405  FOR  19=1  TO  N3  STEP  1 
1410  WRITE  5,SCI9J 
1415  NEXT  19 
1420  LET  18=15 
1425  LET  H=2*N3+1+C2*N5+1J 
1430  LET  N5=3*N3+4 
1435  LET  N6=N3 
1440  LET  N7=2*N6 
1445  LET  N8=3*N5-N7 
1450  REN 
1455  REN 

1460  REN  B  JOINT  COORDINOTES 
1465  REN  B 
1470  LET  M9=H5*3 
1475  LET  N3= INT  CN3J 
1480  FOR  19=1  TO  N3  STEP  1 
1485  IF  LIOI  THEN  1500 
1490  IF  K1<  >0  THEN  1500 
1495  LET  RCI9J  =S  CI9J 
1500  NEXT  19 

1505  REN  - 

1510  REN  COLL  SUBROUTINE  NO IN 
1520  GOTO  3000 

1525  REN  - 

1635  FOR  19=1  TO  3  STEP  1 
1640  PRINT 
1645  NEXT  19 

1650  PRINT  "  ******************•*♦*******************♦*, 

1655  PRINT  "  *  ALL  PILES  IN  THE  SYSTEM  HOUE  FOILED  *" 

1660  PRINT  «  **************************************************************** 

1665  LET  11=1 
1670  GOTO  1710 


1675 

1680 

1685 

1690 

1695 

1700 

1705 

1710 

2000 

2005 

2010 

3000 

3001 

3002 

3003 

3005 

3006 

3007 

3012 

3013 
3015 
3020 
3025 
3030 

3035 

3036 

3037 

3038 

3039 

3041 

3042 

3043 

3044 

3045 

3046 
3050 
3055 
3060 
3065 
3070 
3075 
3080 
3085 
3090 

3094 

3095 

3096 

3097 

3098 

3099 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 


FOR  19=1  TO  3  STEP  1 

PRINT 

NEXT  19 

PRINT  "  ********** 

PRINT  *•  *  ALL  Pit 

PRINT  “  ********** 

LET  11=1 
REN 


*************************************************************** 
*  ALL  PILES  EFFECTIUE  DUE  TO  ASYNNETRIC  LOADING  HAUE  FAILED  * 
*************************************************************** 


REN  WRITE  INTO  FILES 

REN - 

IF  11=1  THEN  3005 
SETU  2  TO  2 

WRITE  2,  I6.L1.K1, 15, N4, H5, N5, PI , N1 . A4, A3. A1 , A2, R2, R1 , R4, R3 
WRITE  2,E1,E5,E4,E2,H1,U1,F3,F4,L8,L9,H9,F4,N3,0, II 
FILE  :  Z,"Z2.5“ 

SETW  3  TO  1 
WRITE  3, I1,N4,N5,N3 
IF  HOI  THEN  3015 
CHAIN  “*HAINL3“ 


SETW  6  TO  7 

WRITE  6, 18. 08, LI 

SETW  7  TO  1 

FOR  19=1  TO  20  STEP  1 

WRITE  :7,ECI93 

NEXT  19 

FOR  19=1  TO  30  STEP  1 
WRITE  : 7, L  CI93 
NEXT  19 

IF  L1<  >1  THEN  3046 

IF  K1O0  THEN  3046 

FOR  19=1  TO  N3  STEP  1 

WRITE  : 7, R  CI9J 

NEXT  19 

SETW  8  TO  1 

FOR  19=1  TO  40  STEP  1 

WRITE  8.SCI93 

NEXT  19 

WRITE  8i  E3 

SETW  9  TO  1 

WRITE  : 9j  02,  L3 

SETW  10  TO  1 

WRITE  : 10,  K 1 

SETW  : 13  TO  2 

WRITE  13. LI, 14 

IF  L1<  >1  THEN  4000 

IF  K1<  >0  THEN  4000 

FOR  19=1  TO  N3  STEP  1 

WRITE  14.RCI9) 

NEXT  19 

SETW  : 17  TO  1 

WRITE  : 17.U6.N1.N4, 14, W8 

IF  K1<  >0  THEN  4012 

FILE  :  12,,,P7" 

SETW  12  TO  1 
WRITE  12,L6,09 
FOR  19=1  TO  09  STEP  1 
WRITE  12.FCI9I 
NEXT  19 

FOR  19=1  TO  40  STEP  1 
WRITE  12.TCI9J 
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4011  NEXT  19 

4012  REN  - 

4013  CHOIN  ,,*INPT1' 

4015  REM  - 

5800  END 

END  OF  LISTING 


OLD  *H0INL3 
LIST 

FILE  *H0INL3 


0005 
0010 
0015 
0020 
0025 
0080 
0085 
0088 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
8099 
0100 
0101 
0102 
0103 
0105 
0111 
01 12 
0115 
0120 
0125 
0130 
0131 
0132 
0135 
0137 
0138 
8140 
0141 
0142 
0145 
0146 
0147 
0148 
0150 
0155 
0160 
0165 
0170 


REN  ********************************************************************** 

REN  SUBROUTINE  H0INL2CFR0N  LINE  NO.  306  TO  SECOND  COLL  FROHE1 

REN  ********************************************************************** 

FILES  P 
DCL  SINGLE 

REH - 

REN  REOD  FROH  FILES 

REH - 

SETU  : 1  TO  1 

REOD  : 1,U6,XC6D ,  X  C73 ,  X  C8D ,  X  C9D 
FILE  1 j "OR" 

SETU  : 1  TO  1 


SETU  : 1  TO  1 

REOD  : 1,U6,XC6D ,  X  C73 ,  X  C8D ,  X  C9D 
FILE  1 j "OR" 

SETU  : 1  TO  1 
FOR  19=1  TO  25  STEP  1 
FOR  J9=1  TO  18  STEP  1 
REOD  1,LCI9,J93 
NEXT  J9 
NEXT  19 

FOR  19=1  TO  25  STEP  1 

REOD  :  1.HCI95  ,  TCI  93  ,£CI93  .UCI93  ,0CI8J  ,FCI9D  ,SCI9I 
NEXT  IS 

FILE  :  1 » "2Z5" 

SETU  1  TO  1 

REOD  :  1,  I4,N2,N3,N1 

FILE  :  l^'OO" 

SETU  1  TO  1 

REOD  :l, 13. 17, G3, H3, Y1 , G6 
FOR  19=1  TO  30  STEP  1 
REOD  :  1,0(19)  , N  CIS) 

NEXT  19 
FILE  :  1 ,  “OB'* 

SETU  1  TO  1 
REOD  : 1 , N5,  G9,  G8 
FILE  1,'*OC" 

SETU  : 1  TO  1 

REOD  : 1, I, 01, 05, 02, HI, SCIJ , U1 , H2, 04 , H3.F Cl) ,  TCI) ,P1,02,S1.D1 
FILE  1 , "OD" 

SETU  : 1  TO  1 

REOD  : 1,P3, 06.07, ZC10) ,ZC9)  ,K 
FOR  19=1  TO  K  STEP  1 
READ  1,GCI9) 

NEXT  19 

FOR  19=1  TO  10  STEP  1 
FOR  J9= 1  TO  60  STEP  1 
REOD  : 1 , H  C 19,  J9J 
NEXT  J9 
NEXT  19 
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0171  FILE  :  lO'COS" 

0172  SETW  : 1  TO  1 
0175  READ  :  1,D3,  Y£13  ,K3 
017S  FILE  :  1,  "OZ" 

0177  SETU  : 1  TO  1 

0180  REPO  : 1,Y£23 , Y£13 ,Y£13 

0185  FOR  19=1  TO  Y£23  STEP  1 

0190  READ  : 1.RCI93 

0195  NEXT  19 

0196  FILE  :  lO'OY" 

0197  SETU  : 1  TO  1 

0198  READ  : 1,B£13 

0200  FOR  19=1  TO  B  £ 13  STEP  1 

0205  READ  : 1,D£I93 

0210  NEXT  19 

0215  IF  U6<>2  THEN  225 

0217  FILE  :  lO’AE" 

0218  SETU  : 1  TO  1 

0220  READ  : 1,F1,F2,K2, I,A5,FCI3 , I 1 , S4, S5, S6, T 1 , 13. T4, I2.TCI3 
0222  READ  : 1,D1,U1,A4 
0225  REN 
0230  REN 

0235  REN  - 

0240  REN  DIHENSIONING  OF  ARRAYS 

0245  DIN  FC503  .SC503  , T  £503 , U £503 , L £50, 363  » H £503 ,  D£1203  ,N£1203 , R  £1203  *  0  £1203 
0250  DIN  H  £10.603 > Q  £503  • E  £503 , A  £503  <  U  £633 

0255  REN  - 

0260  REN 
0265  REN 

0455  REN  - 

0460  REH  REDIRECT  PROCRAN  FLOU  TO  START  THIS  SUBROUTINE  AFTER  FRANE 
0465  IF  U6=2  THEN  980 

0470  REN  - 

0475  REN 
0480  REN 

0785  LET  1 1 =N2+ 1 
0790  LET  12=1 
0795  LET  1=1+1 
0880  IF  1302  THEN  835 
0805  IF  1=12  THEN  835 
0810  IF  I <  =2  THEN  835 

0815  REH  - 

0820  REN  CALL  SUBROUTINE  JNTDP 
0825  GOSUB  2006 

0830  REH  - 

0835  IF  1=12  THEN  865 
0840  IF  I<=2  THEN  865 

0845  REN  - 

0850  REN  CALL  SUBROUTINE  CHART 
0855  GOSUB  2515 

0860  REH  - 

0865  LET  12=1 
0870  LET  S4=01 
0875  LET  S5=A5 
0880  LET  S6=D2 
0885  LET  T£I3  =  CI-13*H1 
0890  LET  SCI3=S£I-13 
0895  FOR  J9= 1  TO  6  STEP  1 
0900  LET  D2=D1+H1*U1+H2*£2.0*A4+A53 
0905  LET  U2=U1+H3*£A4+A53 


0910  LET  05=-01*D2 
0915  NEXT  J9 
0920  LET  K2=0 
0925  LET  F(I3=S(I3*D2 
0930  LET  F1=F(I3 
0935  LET  T1=Ttn 
0940  LET  T4=T 1 

0942  LET  01=02*3. 14159265/180.0 
0945  LET  F2=F  1*C0S  CPU  ./SIN  (01 3 
0950  LET  F1=F1*SIN(P13/SIN(013 

0955  REN  - 

0960  REfl  COLL  SUBROUTINE  FRONE 
0965  LET  U6=2 
0970  GOTO  4000 

0975  REN  - 

0980  LET  U6=0 

0985  IF  14=1  THEN  4000 

0990  LET  S(I3=F(I3/D3 

0995  LET  01=SCIJ>'S1 

1000  FOR  J9=1  TO  6  STEP  1 

1005  LET  02=D1+H1*U1+H2* (2. 0*04+053 

1010  LET  U2=U1+H3* 104+053 

1015  LET  05=-01*D2 

1020  NEXT  J9 

1025  LET  K1=K2+1 

1030  LET  L(I,K13=K3 

1035  LET  N(I3=K1 

1040  LET  K2=K2+1 

1045  IF  K2>17  THEN  1060 

1050  LET  T2=(D2-D33/D2 

1055  IF  OBS (T23 -0. 05>=0  THEN  925 

1060  LET  15=3-3*11 

1065  LET  L 1 =0 

1070  LET  N1  =  INT  CN13 

1075  LET  1 1  =  INT  Cl  13 

1080  FOR  19=1  TO  N1  STEP  II 

1085  LET  15=15+3*11 

1090  IF  N  CI93  =0  THEN  1305 

1095  IF  0  CI93  =1  THEN  1305 

1100  LET  16=15+1 

1105  LET  J 1  =  1 5*3 

1110  LET  J 2=16*3 

1115  LET  D4=  CD  CJ2-  13-DCJ1-133t2 

1120  LET  05=  CDCJ2-23-DCJ1-23  3t2 

1125  LET  D6=SQR (D5+D43 

1130  IF  1700  THEN  1140 

1135  LET  D6=D6*2. 0 

1140  LET  P2=D6*R 1193 

1145  IF  1700  THEN  1155 

1150  LET  P2=P2/2.0 

1155  IF  P2-P3<=0  THEN  1305 

1160  LET  N  (193  =0 

1165  LET  0(I93=P3/D6 

1170  IF  1700  THEN  1180 

1175  LET  QCI 93 =Q (193*2.0 

1180  LET  S3=R (13 

1185  IF  1700  THEN  1195 

1190  LET  S3=S3/2. 0 

1195  LET  07=06 

1200  LET  N1=INT(N3*3+2+I93 

1205  LET  N4=INT((I9+(11-133/I13 
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1218  LET  J3=I5 

1215  LET  J4=I6 

1220  IF  1700  THEN  1250 

1225  LET  N4=INT  CN1- (3*N3+23  3 

1230  LET  HI  =  I NT  CN4  +  CN3+13  3 

1235  LET  J3=2*N4 

1240  LET  J4=J3+1 

1245  GOTO  1275 

1250  IF  1701  THEN  1275 

1255  IF  N2=8  THEN  1275 

1260  LET  H1=INTCN4+C3*N3+233 

1265  LET  J  3= I NT  C5+  CN4- 13  *  C2*N2+33 -23 

1270  LET  J4=J3+1 

1275  GOTO  1276 

1276  FOR  K9=1  TO  5  STEP  1 

1277  PRINT 

1278  NEXT  K9 

1280  REN  - 

1285  REN  COLL  SUBROUTINE  PLO 
1290  GOSUB  3500 

1295  REN  - 

1300  LET  L  1=L 1  +  1 

1305  NEXT  19 

1310  IF  L 1 =0  THEN  1360 

1315  FOR  19=1  TO  36  STEP  1 

1320  LET  LCI. 193=0 

1325  NEXT  19 

1330  LET  HCI3=0 

1335  LET  1=1-1 

1340  LET  01=S4 

1345  LET  Q5=S5 

1350  LET  D2=S6 

1355  GOTO  795 

1360  LET  ECI3=D2 

1365  LET  Um=U2 

1370  LET  OCI3=05 

1375  LET  FCn=SCn*D2 

1380  LET  D8=D2-D1 

1385  LET  D 1 =D2 

1390  LET  U1=U2 

1395  LET  04=05 

1400  IF  D8>=0  THEN  795 

1405  LET  I  5= I NT (3-3* 113 

1410  LET  T4=T 1 

1415  IF  1302  THEN  1435 

1420  REN  - 

1425  REN  COLL  SUBROUTINE  JNTDP 
1430  COSUB  2006 

1435  REN  - 

1440  REN 

1445  REN  - 

1450  REN  COLL  SUBROUTINE  CHORT 
1455  GOSUB  2515 

1460  REN  - 

1465  GOTO  4000 

1970  REN  =========================== 

1975  REN  SUBROUTINES 

1980  REN  =========================== 

1985  REN 
1990  REN 

1995  REN  - 
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2000 

2005 

2006 
200? 
2008 

2009 

2010 
2015 
2020 
2025 

2030 

2031 
2035 
2045 
2050 
2055 
2060 
2065 
2070 
2075 
2080 
2085 
2090 
2095 
2100 
2105 
2110 
2115 
2120 
2125 
2130 
2135 
2140 
2142 
2145 
2150 
2155 
2160 
2165 
2170 
2175 
2180 
2185 
2190 
2195 
2200 
2205 
2210 
2215 
2220 
2225 
2230 
2235 
2240 
2500 
2505 
2510 

2515 

2516 
251? 


REH  JNTDP 

REN - 

LET  N8=3*N5+4 

FOR  19=1  TO  6  STEP  1 

PRINT 

NEXT  19 

PRINT  M  JOINT  DISPLfiCEHENTS" 

PRINT  "  _ _ ” 

PRINT 

PRINT  TOBC33 ; “JOINT"; TAB C233 ; “X";TRBC443 ; ”Y",TRBC643 ; “Z" 

PRINT  TRBC33  ;  "NUHBER"; TRB C183  ;  “DISPLRCENENT TRB  C393  ;  **D I SPLRCEHENT “ ; 
PRINT  TRBC613 ; “ROTATION” 

PRINT  TRBC223 ; “CIN3 “;TRBC433 ; “CIN3 “;TRBC633 ; “ CRRD3 “ 

IF  G9=0  THEN  2155 
LET  19=0 
LET  J9=0 
LET  J5=N8-1 
LET  N8= INT  CN83 
FOR  K9=1  TO  N8  STEP  1 
LET  19=19+1 
IF  I9>=J5  THEN  2120 
LET  J6=I9-INTCI9/33*3 
IF  J6<  >0  THEN  2120 
LET  J6=INTCI9/33 
LET  J6=J6-1 

LET  J6=J6-INTCJ6/CG8+133*CG8+13 

IF  J6=0  THEN  2120 

GOTO  2145 

LET  J9=J9+1 

LET  18=3*19-2 

LET  G1=3*I9— 1 

LET  G2=3*I9 

PRINT  USING  2142, J9.DCI83 ,DCG13 .DCG23 


*•»  *»»•••».»»•• 

NEXT  K9 

GOTO  2240 

LET  19=0 

LET  J  9=0 

LET  J  5=N8- 1 

FOR  K9=1  TO  N8  STEP  1 

LET  19=19+1 

IF  I9=J5  THEN  2235 

IF  I9=N8  THEN  2205 

LET  J6=I9-1 

LET  J6=J6-INTCJ6^33*3 

IF  J6=0  THEN  2235 

LET  J9=J9+1 

LET  18=3*19-2 

LET  G1=3*I9-1 

LET  G2=3*I9 

PRINT  USING  2230, J9,D(I83 , D  CG13 , D CG23 

tit  »•#•*•§.»§•• 

NEXT  K9 
RETURN 


mm 


2518 


REN  SUBROUTINE  CHART 

REN - 

FOR  19=1  TO  6  STEP  1 

PRINT 

NEXT  19 

IF  17=0  THEN  2605 


2520  IF  G3<  >1  THEN  2565 
2525  PRINT  USING  2530, T4 

2530  :  FENDER  AND  PILE  DEFORMATIONS  AT  T INE=  itt.tttt  SECONDS 

2535  PRINT  "  _ _ _ _ _ _ _ 

2540  PRINT 
2542  PRINT 

2545  PRINT  TAB  (83  ;  "SPRING"; TAB (273  ;  "PILE";  TAB  (433  ;  "SPR I NG" ,  T AB  (603  ,  "FENDER" 

2550  PRINT  TAB (83  ;  "NUNBER**;  TAB  (243  ;  "DEFLECT  ION" ;  TAB  C433  ;  "NUMBER";  TAB  (593  . 

2551  PRINT  “DEFLECTION" 

2555  PRINT  TAB  (273  ;  "  (IN3  **;  TAB  (623  ,  "  (IN3  " 

2565  IF  G3<  >2  THEN  2600 
2570  PRINT  USING  2575, T4 

2575  :  FENDER  AND  PILE  DEFORM.  AND  SPRING  CONST.  AT  T IME=*t. *###*  SECONDS 

2580  PRINT  "  _ _ _ _ _ _ _ _  _ 

2581  PRINT  " _ “ 

2582  PRINT 

2585  PRINT  TAB(33 ; "SPRING"; TAB (143 ; “PILE"; TAB (243  ; "SPR ING" ; T AB  (4 13 , "SPRING", 

2586  PRINT  TAB (503 ; "FENDER"; TAB (623 ; “SPR I NG" 

2590  PRINT  TAB  (33  ;  “NUMBER**;  TAB  (1 13  ;  "DEFLECTION";  TAB  (233  ;  "CONSTANT**,  TAB  (413  , 

2591  PRINT  "NUMBER";  TAB  (493  ;  "DEFLECTION";  TAB  (613  ;  "CONST ANT ** 

2595  PRINT  TAB  (143  ;  "(IN3  ",  TAB  (243  ;  "(K/IN3  **;TAB(523  ,  "(IN3  ",  TAB  (623  ,  "(K/IN3  " 

2600  GOTO  2690 

2605  IF  G3<  > 1  THEN  2650 

2610  PRINT  USING  2615, T4 

2615  :  PILE  DEFORMATION  AT  T IME=  ttt.ttttt  SECONDS 

2620  PRINT  "  _ _ _ _ _ " 

2625  PRINT 

2630  PRINT  TAB  (263  ;  "SPRING";  TAB  (463  ;  “PILE  ** 

2635  PRINT  TAB (263  ; "NUMBER"; TAB (433  , "DEFLECT  I  ON" 

2640  PRINT  T AB (463  ; " ( I N3  " 

2645  PRINT 

2650  IF  G3<  >2  THEN  2690 
2655  PRINT  USING  2660, T4 

2660  PILE  DEFORMATIONS  AND  SPRING  CONSTANTS  AT  TIME=  ttt.tftttt  SECONDS 

2665  PRINT  **  _ _ _ _ _ _  _ ", 

2666  PRINT  " _ " 

2670  PRINT 

2675  PRINT  TAB(223  ;  "SPRING";  TAB  (383  ;  "P I LE  ** ,  TAB  (493  ;  "SPRING" 

2680  PRINT  TAB (223  ; “NUMBER"; TAB (353  ; "DEFLECT  ION"; TAB (483 ; "CONSTANT" 

2685  PRINT  TAB  (383  ;  "  ( I N3  " ;  TAB  (493  ;  "  (*✓  I N3  ** 

2690  LET  J  7=0 


2695  LET  K4=1 

2700  LET  L2=2 

2705  LET  M2=0 

2710  LET  N9=INT(N3>'(N2+13  3  +  1 

2715  IF  N2O0  THEN  2725 

2720  LET  N9=N3 

2725  LET  N3=INT(N33 

2730  FOR  19=1  TO  N3  STEP  1 

2735  LET  J7=J7+3 

2740  LET  K4=K4+3 

2745  LET  L2=L2+3 

2750  LET  J8=3*J7-2 

2755  LET  U1=3*J7-1 

2760  LET  K5=3*K4-2 

2765  LET  K6=3*K4-1 

2770  LET  L3=3*L2-2 

2775  LET  L4=3*L2-1 

2780  LET  C1=SOR((D(K53-D(J833  t2+(D(K63-D(W133T23 

2785  LET  C2=SQR ( (D  (L33 -D (K53  3  t2* (D (L43 -D (K63  3  t23 
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2790 

2795 

2300 

2805 

2810 

2815 

2820 

2825 

2830 

2835 

2840 

2845 

2850 

2855 

2880 

2865 

2870 

2875 

2877 

2878 

2879 
2888 
2885 
2890 
2895 
2900 
2905 
2910 
2915 
2920 
2925 
2930 
2935 
2940 
2945 
2950 
2955 
2980 
2965 
2970 
2975 
2980 
2985 
2990 
2995 
3000 
3005 
3485 
3490 
3495 
3500 
3505 
3510 
3515 
3520 
3525 
3530 
3535 
3540 
3545 
3550 


IF  C2<=f13  THEM  2810 
IF  M3<  =  IE-3  THEM  2810 
IF  1701  THEM  2810 
LET  C2=M3 

LET  G4=  I MT  (Cl  9-  13/'CM2+133*CN2+1D 

LET  G5= 19- 1 

IF  G40G5  THEM  2830 

LET  M2=M2+1 

LET  N9=N9+1 

IF  17=0  THEM  2950 

IF  G3<  > 1  THEM  2860 

IF  G40G5  THEM  2860 

PRINT  US I MG  2855,M2,C1,N9,C2 

«#*«.«*  4 

IF  G3<  >2  THEM  2878 
IF  G40G5  THEM  2878 
IF  M  C 1 9D  =0  THEM  2878 

PRIMT  USING  2877  , M2,  C 1 , R  C 1 93 iN9<C2^R(1 9+N33 


*§»».«• 


IF  NCI93O0  THEM  2880 
LET  F9=P3/C1 
IF  G3<  >2  THEM  2905 
IF  G40G5  THEM  2905 
IF  NCI93O0  THEM  2905 
PRIMT  USING  2900, M2. Cl, 
*§#§••».§• 
IF  G3<  > 1  THEM  2925 
IF  G4=G5  THEM  2925 
PRIMT  US I MG  2920.M9.C2 


IF  G3<>2  THEM  2945 
IF  G4=G5  THEM  2945 
PRIMT  US I MG  2940,M9,C2,RCI9*M33 

GOTO  3000 

LET  C3=C1+C2 

LET  S2=R  CI93  ^2. 0 

IF  NCI93O0  THEM  2970 

LET  S2=P3/C3 

IF  G3<  > 1  THEM  2985 

PRIMT  USING  2980, M2, C3 

Hit 

IF  G3<  >2  THEM  3000 
PRIMT  US I MG  2995 , M2 , C3 , S2 

tttti 

MEXT  19 
RETURN 


F  9 , M9 , C2 , R ( 1 9+N33 

•««»•.«» 


tm.tt 


***#*#».*#  »§§•#.«• 


«#«.»»« 


«»«.##§ 


REM  SUBROUTINE  PLR 

REM - 

IF  G6= 1  THEM  3515 

LET  P4=P3 

GOTO  3520 

LET  P4=S3*D7 

OM  Y 1  GOTO  3525,3675 

LET  K7= 1 

LET  P4=P4^K 

LET  H4=G  (K7D  •'20.  0 

LET  H5=-H4 

LET  T5=P4*HCK7.K7*6*5) 
LET  P5=Z  ( 10J  /'fi6 
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3555 

3560 

3565 

3570 

3575 

3580 

3585 

3587 

35S0 

3592 

3595 

3597 

3600 

3602 

3605 

3607 

3610 

3612 

3615 

3620 

3621 

3625 

3626 
3630 
3635 
3640 
3645 
3650 
3655 
3660 
3665 
3670 
3675 
3680 
3685 
3690 
3695 
3700 
3705 
3710 
3715 
3720 
3725 
3730 
3735 
3740 
3745 
3750 
3755 
3760 
3765 
3770 
3775 
3780 
3785 
3790 
3795 
3800 
3805 
3807 
3810 


IF  G6 

PRINT 

PRINT 

GOTO 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


=1  THEN  3575 
TAB  C343  ; "FAILED  PILES” 

TABC343  ;" _ _ " 

3585 

TABC343 ; "REMAINING  PILES" 
TABC343;" _ _ " 


USING 

MEMBER 

USING 

SPRING 

USING 

STARTI 

USING 

ENDING 

USING 

FORCE 


3590/ Ml 
NUMBER 
3595, N4 
NUMBER 
3600/ J3 
NG  JOINT 
3605/ J4 
JOINT 
3610/P4 


**#• 

tit# 

*##§.«**§ 


K 


PRINT 

PRINT  TABC53;"  DISTANCE  FROM”;  TAB  C353  ;  "HORIZONTAL  **;  TAB  €51)  ;  "UERT ICAL  " 
PRINT  TAB  C6) i "TOP  OF  P ILE TAB C23) ; "MOMENT"; TAB C37) ; "SHEAR"; TAB C52) ; 
PRINT  "SHEAR"; TAB C66); "STRESS" 

PRINT  TAB  C8)  ;  "  CFT3  *';  TAB  C233  ;  "CFT*K3  ",  TAB  C38)  ,  "  CK3  TAB  1533  ;  "  CK)  TABC64) 
PRINT  "CK/IN**23" 

FOR  K9= 1  TO  21  STEP  1 
LET  H5=H5+H4 
LET  X1=T5+P4^H5 
LET  S7=P5+X1*2  C93 
LET  S7=S?/'144«  0 

PRINT  USING  3660/H5,X1/P4,2C103 . S? 

mt.tttt  *»«*.*•**  «**«.*#••  mt.titi 


NEXT  K9 
GOTO  3985 

LET  F4=A?*GC1)/'CB7*GC2)3 

LET  F 5=F4+ 1.0 

LET  U1=H  Cl , 113-HC1/53 

LET  X 1 =P4*U 1 

LET  U3=-X 1 sf 5 

LET  B1=X1*F4/F5 

LET  U4=X1/'  C2. 0*F5) 

LET  B2=-X1*F 4x  C2 . 0*F 53 
LET  E 1=SQR (G  C23  T2-G  C13  t23 
LET  H6=3.0*X1/-C2.0*GC13*F53 
LET  T6=ATNCE1/'GC1)3 
REM 

LET  H7=H6*C0S  CT63 

LET  U5=3.0*X1xC2.0*E13 

LET  U6=-U5 

LET  E2=GC1)/'20.0 

LET  E3=GC2)^20.0 

LET  E4=-E2 

LET  E5=-E3 

LET  P6=2C103/A6 

LET  P7=ZC10)/A6 

IF  G6= 1  THEN  3800 

PRINT  TABC313 ; "FAILED  PILE" 

PRINT  TABC313," _ _ " 

GOTO  3807  000033 

PRINT  TABC303 , "REMAINING  PILE" 

PRINT  TABC303," _ _ ” 

PRINT 

PRINT  USING  3590. Ml 


3815  PRINT  USING  3595, N4 
3820  PRINT  USING  3600, J3 
3825  PRINT  USING  3605, J4 

3830  PRINT  USING  3610, P4 

3831  PRINT 

3832  PRINT 

3835  PRINT  TAB C303 , "P ILE 1 CUERT ICAL3  " 

3840  PRINT  TABC23 ; “DIST.  FROH“; TAB  C343 ; "HOR. ",  TAB  C483 , "UER .  “ 

3845  PRINT  TABC13;"TOP  OF  P ILE "; TAB C203 ; "NONENT " ; TAB C343 , "SHEAR ",  TAB C483 , 
3848  PRINT  "SHEAR1*;  TAB  C613  ;  “STRESS" 

3850  PRINT  TAB  C203  ;  "CFT+KJ  ",  TAB  C353  ;  "CK3  ",  TAB  C493  ,  "  CIO  ",  TAB  C603  ,  "CK/'IN**23  " 

3855  FOR  K9= 1  TO  21  STEP  1 

3860  LET  E4=E4+E2 

3865  LET  UCK93=E4 

3870  LET  E5=E5+E3 

3875  LET  Z C73 =SQR CE5t2-E4t23 

3880  LET  ZC53=E1-ZC73 

3885  LET  ZC63=GC13-E4 

3890  LET  ZC13=ZC63/GC13*U3+E4,'GC13*U4 
3892  LET  U CK9+213 =Z C73 /E1*B2+Z C53 ^E1*B1 
3895  LET  Z C33 =P6+Z C 1 3 *2 C93 /A? 

3900  LET  UCK9+423=P7+«CK9+213*Z(93^A7 

3905  LET  ZC33=ZC33',144.0 

3910  LET  U  CK9+423  =U  CK9+423  ^144. 0 

3915  PRINT  USING  3920, E4, Z C 1 3 , H6 , U6 , Z C33 

3920  :  ###.##  *««.«*••  »**.»•»§  ***.*§••  *••.«••• 

3925  NEXT  K9 

3930  PRINT 
3935  PRINT 

3940  PRINT  TABC303 , "PILE  2  CBATTERED3 " 

3945  PRINT  TAB C33 ; “DI ST .  FORN" ; TAB C343 , "HOR. " ; TAB C483 ; "UER .  " 

3950  PRINT  T AB  C23 ; "T OP  OF  P ILE "; TAB C203  ; "NOnENT "; TAB C343  ; "SHEAR" ; TAB C483 , 
3955  PRINT  "SHEAR"; TAB C613 ; "STRESS" 

3960  PRINT  TAB  C 193  ;  "CFT**K3  ";TABC353  ,  "CK3  ";TABC493  ,  "CIO  ",  TABC603  ,  "CK/'IN**23  " 
3965  FOR  K3= 1  TO  21  STEP  1 

3970  PRINT  USING  3980 , U CK93 , U CK9+2 1 3 , H7 , U5 , U CK9+423 
3975  NEXT  K9 

3980  :  »«*.»»  *•».*•*•  ###.##*#  »*#.#»*•  »»§.»*#• 

3985  RETURN 

4000  REN 

4001  IF  U6=0  THEN  4081 

4002  FILE  :  1, "P" 

4004  SET0  1  TO  1 

4006  URITE  •  1 ,  U6  »XC63  ,XC73  ,XC83  ,XC93 
4008  FILE  :  1 , "AR" 

4010  SETW  1  TO  1 
4012  FOR  19=1  TO  25  STEP  1 

4014  FOR  J 9= 1  TO  18  STEP  1 

4016  URITE  : 1,LCI9, J93 
4018  NEXT  J9 
4020  NEXT  19 

4022  FOR  19=1  TO  25  STEP  1 

4024  URITE  1,HCI93  ,TCI93  ,ECI93  ,UCI93  .ACI93  .FCI93  ,SCI93 

4026  NEXT  19 

4028  FILE  1, "AE" 

4030  SETU  1  TO  1 

4032  URITE  : 1,F1,F2,K2, I , A5,F  CI3 , 1 1 ,S4,S5,S6,T1 , 13. T4, 12, T  CI3 ,D1 ,U1 , A4 
4034  FILE  1 , "AA" 

4036  SETU  1  TO  7 
4038  FOR  19=1  TO  30  STEP  1 
4040  URITE  1 ,OCI93 ,NCI93 
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4042  NEXT  19 
4044  FILE  :  1,"P2‘* 

4046  SETy  1  TO  1 
4048  FOR  19=1  TO  30  STEP  1 
4050  yRITE  : 1 ,NCI93 
4052  NEXT  IS 

4060  FILE  :  1, "KLOOP” 

4061  SETy  : 1  TO  1 

4062  yRITE  :1,I,K2 
4070  REN 

4080  CHRIN  “*FRfiHE “ 

4081  FILE  :  l^’RR" 

4082  SETy  : 1  TO  1 

4890  FOR  19=1  TO  30  STEP  1 

4100  yRITE  : 1 , 0  CI93  , N  CI93 

4110  NEXT  19 

4120  yRITE  : 1  >  B  C 1 3 

4130  FOR  19=1  TO  B  Cl J  STEP  1 

4140  WRITE  : 1.DCI93 

4150  NEXT  19 

4160  WRITE  : 1,YC23 

4170  FOR  19=1  TO  YC23  STEP  1 

4180  WRITE  : 1.RCI93 

4190  NEXT  19 

4200  FOR  19=1  TO  10  STEP  1 

4210  FOR  J 9= 1  TO  60  STEP  1 

4220  WRITE  : 1,HCI9, J93 
4230  NEXT  J 9 
4248  NEXT  19 

4250  FOR  19=1  TO  25  STEP  1 

4260  WRITE  :  1 ,  N  C 1 93  ,  T  C 1 93  ,  E  C 1 93  ,  U  C 1 93  ,  R  Cl 93  ,  F  C 1 93  ,  S  C 1 93 
4270  NEXT  19 

4280  WRITE  : 1, 14, I 1,N1, I7,N3,N2, I ,S1,P3, Y1,K,ZC103 ,R6,ZC93 ,07 

4281  IF  14=1  THEN  4290 

4282  WRITE  1,15 

4290  FOR  19=1  TO  25  STEP  1 

4300  FOR  J 9= 1  TO  18  STEP  1 

43 10  WRITE  1 , L  C I  9, J93 
4320  NEXT  J9 
4330  NEXT  19 

4340  FOR  19=1  TO  K  STEP  1 
4350  WRITE  : 1,GCI93 
4360  NEXT  19 
4370  CHRIN  ,,*NRINL4’* 

9999  END 

END  OF  LISTING 


FILE 


*NRIN'_1 


0005  REN  ******************************************************************** 

0010  REN  SUBROUTINE  NR  I NL 1  CNR I NL -P I LE  TO  DIRG3 

0015  REN  ************************************************* ******* ************ 

0016  DISP  "  INPUT  UER I F I CRT  I ON" 

0017  DCL  SINGLE 
H020  FILES  C0NN8,P;RB,RR 
n0? 5  SETW  1  TO  1 
-•Hie  SETW  2  TO  1 


000035 


mtmmm 


a 


m 


0032 
0035 
0040 
0045 
0050 
0055 
0060 
0065 
0070 
0075 
0080 
0085 
0090 
0095 
0100 
0105 
0110 
0115 
0120 
0125 
0130 
0135 
0140 
0145 
0150 
0155 
0160 
0165 
0170 
0171 
0172 
0175 
0180 
0185 
0190 
1000 
1005 
1010 
1015 
1020 
1025 
1030 
1035 
1040 
1042 
1045 
1047 
1050 
1052 
1055 
1060 
1062 
1065 
1070 
1075 
1080 
1085 
1087 
1090 
1092 
1095 


SETW  3  TO  1 

REfl - 

REN  REPO  FRON  FILES 


REPD  : 1, J3,P3,B1,C1,N1, J5, J4 

Oh  J 5  GOTO  60,65 

REPD  1, U3.F1,T1,P3 

REPO  1 ,  M6 

IF  J3<>1  THEN  80 

REPD  :  1 ,  N3 

IF  J3O0  THEN  90 

REPO  1,J2 

REPD  : 1 , H4 

IF  J 3=0  THEN  110 

REPD  : 1»E4,R5,R7,E5, R6 , R8 

GOTO  1 J5 

REPD  : 1 , E4 , R5 , R7 
IF  J 4=0  THEN  140 
REPD  1 , N2 

FOR  J=1  TO  N2  STEP  1 

REPD  : 1 ,  J  ,  P  C  J  J ,  B  C  J  3 

NEXT  J 

REPD  1,U1 

IF  U 1 = 1  THEN  170 

REPD  1 , N5 

FOR  J=1  TO  N5  STEP  1 
REPD  :  1 ,  N  C  J  3 
NEXT  J 

REPD  :1,N3,N6 

REN  I NIT  I PL  I ZPT I ON  OF  NTH  I N ,  NZS  ,  l  ^.*>PT 
LET  Z1=Z2=Z3=0 


REN  DINENSION 

DIN  PC503 , B  C503 ,NC303  ,L  C25,  183 , NC253 , T  C253 , D  C253 ,  U C253 , E  C253 , F  C253  , S C253 


REN - 

REN  HPINLINE  NPINL1 


P  COEFFICIENT  =  *»#».»*»• 


B  COEFFICIENT  = 


IF  J 3<  > 1  THEN  1065 
GOSUB  1475 

PRINT  "  REGULPR  RUBBER  FENDER  DPTP" 

PRINT  "  _ _ _ _ “ 

PRINT 

PRINT  USING  1042, R3 

P  COEFFICIENT  =  *»#».»«»# 

PRINT  USING  1047, B1 

B  COEFFICIENT  =  »§•».»•#• 

PRINT  USING  1052, Cl 

C  COEFFICIENT  =  «*••.«••• 

IF  N1<= IE-3  THEN  1065 
PRINT  USING  1062, N1 

NPXIHUN  DEFLECTION  =  »**.*•••  IN. 

ON  J5  GOTO  1070, 1110 
GOSUB  1475 

PRINT  **  GRPUI TY-RETRPCTPBLE  FENDER  DPTP" 

PRINT  "  _ _ _ " 

PRINT 

PRINT  USING  1090, «3 

WEIGHT  OF  COUNTER-WEIGHT= 

PRINT  USING  1035, FI 

SUPPORT-COUNTER-WEIGHT  DISTPNCE=  »••«.*»*• 


»**.*•••  IN. 


oooo: 


ANGLE  OF  TRACT= 


DEG 


1097  PRINT  USING  1 100. T 1 


1 100  : 

1102  PRINT  USING  1105, P3 
1105  :  COEFFICIENT  OF  FRICTION=  ttii.iiit 

1110  GOSUB  1475 

1115  PRINT  ”  SYSTEM  CONFIGURATION  DATA" 

1120  PRINT  “  - - - " 

1125  PRINT 

1130  PRINT  USING  1132, N6 

1132  :  NUMBER  OF  PILE  GROUPS  =  it* 

1135  IF  J3<  >1  THEN  1145 
1140  PRINT  USING  1142, N3 

1142  :  NUMBER  OF  FENDERS  =  it* 

1145  IF  J3<  >0  THEN  1155 
1150  PRINT  USING  1152, J2 

1152  NUMBER  OF  FENDERS  =  iii 

1155  PRINT  USING  1157, H4 

1157  :  SPACING  BETHEEN  PILES  =  it*.**  IN 

1160  GOSUB  1475 

1165  PRINT  "  BEAM  PROPERTIES" 

1170  PRINT  “  _ _ " 

1175  PRINT 

1180  IF  J 3=0  THEN  1250 
1185  PRINT  USING  1190,E4 

1190  :  MODULUS  OF  ELASTICITY  OF  SUPPPORT  BEAM  =  iiitii.it  K^IN**2 

1195  PRINT  USING  1200, R5 

1280  MOMENT  OF  INERTIA  OF  SUPPORT  BEAN  =  iiiiii.ii  IN«>*4 

1205  PRINT  USING  1210, R7 

1210  :  AREA  OF  SUPPORT  BEAM  =  iiiiii.ii  IN*>*2 

1215  PRINT  USING  1220, E5 

1220  MODULUS  OF  ELASTICITY  OF  FENDER  BEAN  =  iiiiii.ii 

1225  PRINT  USING  1230, R6 

1230  :  MOMENT  OF  INERTIA  OF  FENDER  BEAM  =  iiiiii.ii  IN**4 

1235  PRINT  USING  1240, R8 

1240  AREA  OF  FENDER  BEAN  =  iiiiii.ii  IN**2 

1245  GOTO  1265 

1250  PRINT  USING  1190, E4 

1255  PRINT  USING  1200, R5 

1260  PRINT  USING  1210, R7 

1265  GOTO  1270 

1270  IF  J 4=0  THEN  1330 

1275  GOSUB  1475 

1280  PRINT  TAB £263 ; "COORDINATES  OF  JOINTS" 

1285  PRINT  TAB£263;" _ _ _ " 

1290  PRINT 

1295  PRINT  TAB  £63 ; "JOINT"; TAB  £363  ; "X"; T AB  £643 ; "Y" 

1300  PRINT  TAB  £63 ; "NUMBER"; TAB  £313 ; "COORDINATE"; TAB  £593  , "COORDINATE" 

1305  PRINT  TAB  £343 ; " £ IN3 “ ; TAB  £623  ; " £ IN3 " 

1310  PRINT 

1315  FOR  J=1  TO  M2  STEP  1 

1320  PRINT  USING  1325, J , A £J3 . B £J3 

1325  :  iii  iiiii.iiii  iiiii.iiii 

1327  NEXT  J 
1330  GOTO  1335 
1335  IF  U1=1  THEN  1385 
1340  GOSUB  1475 


1345  PRINT  "  RIGID  SUPPORT" 

1350  PRINT  "  _ _ " 

1355  PRINT 

1360  PRINT  "  SPRING  NO." 

1365  FOR  J=1  TO  N5  STEP  1 
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1370  PRINT  USING  1375, NCJ3 
1375  :  ### 

1380  NEXT  J 

1385  GOTO  1390 

1390  IF  J3<  >1  THEN  1400 

1395  LET  H3=N3 

1400  IF  J3O0  THEN  1410 

1405  LET  H3=N6 

1410  IF  J3<>1  THEN  1420 

1415  LET  H4=  CN3-N63  s CN6-13 

1420  IF  J3<  >0  THEN  1427 

1425  LET  N4=0 

1427  LET  H5=J3 

1429  GOTO  1510 

1430  REH  - 

1435  REN  CALL  SUBROUTINE  DIAG 

1440  REH  GOSUB 

1445  REH  - 

1450  REH 
1455  REH 

1460  REH  - 

1465  REH  PRINT  SUBROUTINE 

1470  REH  - 

1475  FOR  19=1  TO  4  STEP  1 
1480  PRINT 
1485  NEXT  19 
1490  RETURN 

1495  REH  - 

1500  REH  WRITE  INTO  FILES 

1505  REH  - 

1510  SETW  4  TO  1 

1520  FOR  19=1  TO  25  STEP  1 

1530  FOR  J9=1  TO  18  STEP  1 

1540  LET  L  CIS,  J93  =0. 0 

1550  WRITE  : 4, L  CI9, J93 

1560  NEXT  J9 

1570  NEXT  19 

1580  FOR  19=1  TO  25  STEP  1 

1590  LET  HCI93=TCI93=DCI93=yCI93=ECI93=FCI93=SCI9)=0.0 

1600  WRITE  :4,HCI93  ,T  Cl  93  ,DCI93  ,UCI93  ,ECI93,F  Cl  93  , SCI  93 

1610  NEXT  19 

1620  LET  U6=0 

1630  LET  FC13=1.0 

1640  WRITE  ■ 2 , U6, 2 1 , Z2 , Z3, F  C 1 3 

1650  WRITE  3,H3,H5,H4 

1660  DISP  "REHOUE  HAT  OPT  AND  RUN  *HAINL2" 

1670  FOR  19=1  TO  3  STEP  1 

1675  FOR  K9= 1  TO  100  STEP  1 

1680  BEEP 

1685  NEXT  K9 

1690  DELAY  6 

1695  NEXT  19 

9999  END 


END  OF  LISTING 
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OLD  *NPINL 
LIST 

FILE  *NP  I  ML 


0005 

0010 

0015 

0016 

001? 

0018 

0020 

0025 

0026 

002? 

0028 

0030 

0035 

0040 

0045 

0050 

0185 

0190 

0195 

0200 

0205 

0210 

0215 

0220 

0225 

0230 

0235 

0240 

0245 

0250 

0255 

0260 

0265 

0270 

0275 

0280 

0285 

0290 

0295 

0300 

0305 

0310 

0315 

0320 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0333 

0334 

0335 


REN  *********************************************************************** 

REM  SUBROUTINES  HPINL  PND  INPUT 

REN  ********************************************************************** 

DISP  "  INPUT  UERIFICPTION" 

DCL  SINGLE 
DCL  400* 

FILES  INPUT ; C0HN1 ; C0HH2; C0NN8; C0HH9; C0H6; C0N8; C09; ZP1 i P03; PP; BB; DRPW 

SETU  : 1  TO  1 

FOR  19=1  TO  6  STEP  1 

PRINT 

NEXT  19 

REN - 

REN  DINENSIONING  OF  PRRPYS 

REN - 

DIN  P  (253  ,  H  (303  ,  S  (403  ,  T  (253  ,  D  C253  ,  B  C253  ,  C  C253  ,  N  C303  ,  F  (203  ,  L  (25,  183 
DIN  U  (253  ,  U  (303  ,  X  (203  ,  Y  (203  ,  N  (203  ,  E  C203  ,  P  (10, 33  ,  G  (643  ,  R  (643 

REN - 

REN  NRINL  BODY 

REN - 

FOR  19=1  TO  25  STEP  1 
FOR  J9=1  TO  18  STEP  1 
LET  L (19, J93  =0. 0 
NEXT  J9 
NEXT  19 

FOR  19=1  TO  25  STEP  1 

LET  P ( 193  =0 . 0 

NEXT  19 

LET  N1=10 

LET  J 1 =8 . 0 

LET  L1=0.0 

LET  J2=0. 0 

FOR  J9=1  TO  30  STEP  1 
LET  H (J93  =0. 0 
NEXT  J9 

FOR  J9=1  TO  40  STEP  1 

LET  S  CJ93  =0. 0 

NEXT  J  9 

LET  D4=0. 0 

LET  P1=0.0 

LET  D5=0.0 

LET  P2=0. 0 

LET  T ( 1 3  =0. 0 

LET  D ( 13  =0. 0 

LET  B ( 1 3  =0.0 

LET  C(13=1.0 

LET  1=1 

TEPD  : 1 , 0* 

PRINT  TPB (103 ; "***********************************************************•• 
PRINT  TPB  (103  ;  "*'•;  TPB  (363  ;  "JOB  NPHE  :  " ;  TPB  (683  ;  D00039 

PRINT  TPB  ( 103  ;  "*" ;  TPB  (203  ;  0* ,  TPB  (683  ;  "*”  VVIMUP* 

PRINT  TPB C 103 ; "***********************************************************•• 
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REN  CPLL  SUBROUTINE  INPUT 
GOSUB  660 


0336  REM  - 

0340  IF  U1=1  THEN  415 

0345  IF  J 3<  >0  THEN  355 

0350  LET  N2=0.0 

0355  IF  J3<  >1  THEN  365 

0360  LET  N2=  CN3-N63  s CN6- ID 

0365  IF  N5<  >0  THEN  390 

0370  LET  N5=N6 

0375  FOR  J9= 1  TO  N5  STEP  1 

0380  LET  N  CJ9J  =J9 

0385  NEXT  J9 

0390  FOR  J9=1  TO  N5  STEP  1 

0395  LET  Q9=N  CJ93  ♦  CN  CJ93  -1J  *N2 

0400  LET  Q9=INT  CQ9J 

0405  LET  H  CQ93  =  1 

0410  NEXT  J9 

0415  GOTO  420 

0420  LET  R3=R4 

0425  LET  B1=B2 

0430  LET  C1=C2 

0435  LET  N1=D3 

0440  LET  P1=P2 

0445  IF  J4<  >0  THEN  455 

0450  LET  P2=P2-45. 0 

0455  LET  P2=P2*3. 14159265/180 

0460  LET  01=2.0*0 

0465  LET  S1=01/C32. 174*12.01 

0470  LET  U  1=308. 8*02/"  15. 0 

0475  LET  R5=R6*3. 14159265/188.0 

0480  LET  U  CI3  =U1*SIN  CR5) 

0485  GOSUB  1330 

0490  GOSUB  1330 

0495  PRINT  "SHIP  DOTH" 

0500  PRINT  " _ " 

0505  PRINT 

0510  PRINT  USING  515,0,01 


0515  UEIGHT  OF  SHIP=  *####«##. tti  TONS  ••«•«•••.•§  K 

0520  PRINT  USING  525,U2,U1 

0525  VELOCITY  OF  SHIP=  »#»#•••.§•  KNOT  •*§••«»#.••  IN/SEC 

0530  PRINT  USING  535, SI 


0535  MRSS  OF  SHIP=  «*«»#•##.»•  K*SEC**2/IN 

0540  GOSUB  1330 

0545  PRINT  "LORD  DRTR" 

0550  PRINT  " _ _ " 

0555  PRINT 

0560  PRINT  USING  565, R6 


0565  : RNGLE  OF  INPRCT=  *#«•*§••.••  DEG 

0570  PRINT  USING  575, PI 

0575  RNGLE  BET0EEN  LORD  RND  X-RX I S=i#ti#itt . ##  DEG 
0580  PRINT  "LORD  P0INTS=“;L2 
0585  ON  J5  GOTO  590,615 
0590  LET  02=03 

0595  LET  R5=T1*3. 14159265/180.0 
0600  LET  R5=C0SCR53t2 


0605  LET  R5=UCI3 t2-2.0*02*P3*F1*R5/S1 
9610  LET  U ( I ) =SQR CR53 
0615  LET  U3=U(IJ 
0620  LET  U4=U ( I ) 

0625  FOR  19=1  TO  30  STEP  1 
0630  LET  U ( I9J  =  1 
0635  NEXT  19 
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0640  GOTO  1360 

0645  REM - 

0650  REM  SUBROUTINE  INPUT 

0655  REM  - 

0660  LET  L3=0 
0665  GOSUB  1330 

0670  PRINT  TABC291 i "VERIFICATION  OF  INPUT" 

0675  PRINT  TABC29!;" _ _ _ " 

0680  GOSUB  1310 

0685  PRINT  "OPTIONS  INDICATED" 

0688  PRINT 

0685  READ  :  1 , 1 1 , 12, 13, 14, 15, 17, U1 
0686  LET  16=2 
0687  LET  18=1 

0700  ON  II  GOTO  705,720,735 

0705  PRINT  "OPTION  1  =  1  CONE  OR  MORE  UERTICAL  PILES! " 

0710  LET  N4= 1 
0715  GOTO  745 

0720  PRINT  "OPTION  1=2CTW0  BATTERED  PILES!" 

0725  LET  N4=2 
0730  GOTO  745 

0735  PRINT  “OPTION  1=3  CGENERAL  PILE  CONFIGURATION!" 

0740  LET  N4=3 

0745  ON  12  GOTO  750,770,788 

0750  PRINT  "OPTION  2=1 [REGULAR  RUBBER  FENDERS!" 

0755  LET  J 3= 1 
0760  LET  J  5=2 
0765  GOTO  805 

0770  PRINT  "OPTION  2=2 CGRAUITY-RETRACTABLE  FENDERS!" 

0775  LET  J3=0 
0780  LET  J  5= 1 
0785  GOTO  805 

0780  PRINT  "OPTION  2=3CNO  FENDERS!" 

0785  LET  J 3=0 
0808  LET  J  5=2 
0805  ON  13  GOTO  810,825 

0810  PRINT  “OPTION  3=1CJOINT  COORDINATES  GENERATED  INTERNALLY!" 
0815  LET  J 4=0 
0820  GOTO  835 

0825  PRINT  "OPTION  3=2CJ0INT  COORDINATES  INPUT!" 

0830  LET  J 4= 1 

0835  ON  14  GOTO  840,850 

0840  PRINT  "OPTION  4=1 CDEFLECT IONS  ONLY  OUTPUT!" 

0845  GOTO  855 

0850  PRINT  "OPTION  4=2 CDEFLECT IONS  AND  SPRING  CONSTANTS  OUTPUT!" 
0855  ON  15  GOTO  860,875 
0860  LET  J6=1 

0865  PRINT  "OPTION  5=1CPILE  GROUP  ANALYSIS  OUTPUT  SUPPRESSED!" 

0870  GOTO  805 
0875  LET  J6=2 

0880  PRINT  "OPTION  5=2CPILE  GROUP  ANALYSIS  OUTPUT  NOT  SUPPRESSED! " 
0305  ON  17  GOTO  310,320 

0910  PRINT  "OPTION  6=1CJ0INT  DISPLACEMENT  TABLE  NOT  OUTPUT!" 

0915  GOTO  945 

0920  PRINT  "OPTION  6=2CJ0INT  DISPLACEMENT  TABLE  OUTPUT!" 

0945  ON  U1  GOTO  950,960 

0950  PRINT  "OPTION  7=1 CNO  RIGID  SUPPORTS!" 

0955  GOTO  965 

0960  PRINT  "OPTION  7=2C0NE  OR  MORE  RIGID  SUPPORTS!" 

0965  GOTO  970 
0970  READ  1,y,U2 
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0975  REPO  -  1.L2.P6.P2 

0980  REPD  : 1 .  G1 .  G3 .El 

0985  ON  N4  GOTO  990.1010.1050 

0990  REPD  : 1.K.S6 

0995  REPD  : 1.Z1.Z8.Z6.Z7.Z3.Z4 

1000  REPD  : 1.Z2.Z5.Z9.Y1.Y2 

1005  GOTO  1125 

1010  REPD  -1.H2 

1020  REPD  : 1.07.D1.D2.P8.B3.P9.B4.B5.B6.C3 

1030  FOR  19=1  TO  2  STEP  1 

1035  REPD  -  1. J.FCJ3 

1040  NEXT  19 

1045  GOTO  1125 

1050  REPD  : 1.K.N7.N8.K5.K3.N9 

1060  REPD  : 1. P7.D1.D2.P8.B3.PS. 04. B5.B6.C3 

1085  FOR  19=1  TO  K  STEP  1 

1090  REPD  :  1.  J.XCJ3  .  YCJ3  .Z.HCJJ  .E  CJ3  .  F  CJD 
1095  NEXT  19 

1100  REPD  :  1.QC13  ,OC23  .  Q  C33  .  Q  C43  ,QC5J  .QC6D 

1105  IF  N9=0  THEN  1125 

1110  FOR  19=1  TO  N9  STEP  1 

1115  REPD  :  1.J.PCJ.  13  .PCJ.2D  .  P  CJ  .  33 

1120  NEXT  19 

1125  IF  J3<>1  THEN  1135 

1130  REPD  :  1 1  P4.  B2. C2. D3 

1135  IF  J5<>1  THEN  1145 

1140  REPD  1.U3.F1.T1.P3 

1145  IF  J3=1  THEN  1165 

1150  LET  P4=0. 0 

1155  LET  82=0.0 

1160  LET  C2=0.0 

1162  LET  D3=0. 0 

1165  REPD  :  1.N6.N3.H3 

1170  REPD  1.E2.R1.R2 

1175  IF  J3<  >1  THEN  1185 

1180  REPD  : 1.E3.R3.R4 

1185  IF  J4=0  THEN  1225 

1190  IF  J3<  >0  THEN  1200 

1195  LET  L3=N6*2+2 

1200  IF  J3=0  THEN  1210 

1205  LET  L3=3*N3-*-4-  CN3-N63 

1210  FOR  19=1  TO  L3  STEP  1 

1212  LET  L3=INT  CL3J 

1215  REPD  1. J.GCJ3 ,RCJJ 

1220  NEXT  19 

1225  IF  U1=1  THEN  1290 

1230  REPD  : 1.N5 

1235  IF  N5=0  THEN  1290 

1240  LET  L4=CN5+13)^14 

1245  LET  L4=INT IL4D 

1250  FOR  19=1  TO  L4  STEP  1 

1255  LET  J=  CI-1J  *14+1 

1260  LET  L5= J  +  13 

1265  LET  L5= INT  CL5I 

1270  FOR  J9=J  TO  L5  STEP  1 

1275  REPD  : 1.NCJ9) 

1277  NEXT  J9 
1280  NEXT  19 
1285  GOTO  1290 
1290  RETURN 

1295  REN  - 
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1300  REH  PRINT  SUBROUTINES 

1305  REN  - 

1310  FOR  19=1  TO  2  STEP  1 
1315  PRINT 
1320  NEXT  19 
1325  RETURN 

1330  FOR  19=1  TO  4  STEP  1 
1335  PRINT 
1340  NEXT  19 
1345  RETURN 

1350  REN  - 

1355  REN  WRITE  INTO  FILES 

1360  REN  - 

1395  IF  N4=2  THEN  1399 
1397  LET  K8=K 

1399  LET  U2=0 

1400  SETW  2  TO  1 

1402  WRITE  2,G1,G3,E1,N4,N3,U2, J6 
1405  ON  N4  GOTO  1407.1411,1421 

1407  WRITE  :  2  >  K ,  S6 ,Z1,Z2>Z3>Z4.Z5,Z6>Z7>Z8»Z9,Y1, Y2 , K8 
1409  GOTO  1500 

1411  WRITE  2  H2,07,D1,D2,08,B3,09,B4,B5,B6,C3 

1413  FOR  19=1  TO  2  STEP  1 

1415  WRITE  : 2, F  Cl 93 

1417  NEXT  19 

1419  GOTO  1500 

1421  FOR  19=2  TO  6  STEP  1 

1423  LET  Q8=0. 0 

1425  NEXT  19 

1427  WRITE  : 2 , K , N9, N7 , N8. K5  >  K3  >  K8 
1429  FOR  19=1  TO  K  STEP  1 

1431  WRITE  2.NCI93  ,ECI93  ,XCI93  .  YCI93  ,Z,FCI93 ,07 

1433  NEXT  19 

1434  WRITE  2, 09, 08,  B3,  B4,  D1 ,  D2,  B5,  B6,  C3 

1435  WRITE  :2,QC13  ,  Q  C23  >9(33  ,Q(43  ,  Q  (53  ,QC63 
1437  IF  N9=0  THEN  1500 

1439  FOR  19=1  TO  N9  STEP  1 
1441  WRITE  2.PCI9,  13  ,PCI9,23  ,PCI9,33 
1443  NEXT  19 
1500  SETW  4  TO  1 

1505  WRITE  4, J3,03,B1,C1,N1, J5, J4 

1510  ON  J 5  GOTO  1515,1520 

1515  WRITE  4,W3.F1,T1.P3 

1520  WRITE  4,N6 

1525  IF  J3<>1  THEN  1535 

1530  WRITE  4,N3 

1535  IF  J3<  >0  THEN  1545 

1540  WRITE  : 4, J2 

1545  WRITE  4.H3 

1550  IF  J3=0  THEN  1565 

1555  WRITE  4,E2.R1»R2,E3.k3,R4 

1560  GOTO  1570 

1565  WRITE  4.E2.R1.R2 

1570  IF  J4=0  THEN  1595 

1575  WRITE  4,L3 

1580  FOR  J=1  TO  L3  STEP  1 

1585  WRITE  4, J.GCJ3 ,RCJ3 

1590  NEXT  J 

1595  WRITE  4 , U1 

1600  IF  U 1 = 1  THEN  1625 

1605  WRITE  4.N5 
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1610  FOR  J=1  TO  M5  STEP  1 
1615  WRITE  :4,NCJ) 

1620  NEXT  J 

1625  WRITE  :4,N3,N6 

1700  SETW  5  TO  1 

1705  WRITE  5, I.CCI) ,D5,TCID ,A6,P2, I , L2, N6, N3, LI , J3, J4,E1,H3,E2 
1710  WRITE  5,R1,R2,N6,H3,E2 

1712  IF  J3=0  THEM  1715 

1713  WRITE  5,R4,R3,E3 
1715  FOR  19=1  TO  20  STEP  1 
1720  WRITE  :5,UCI9D 

1725  NEXT  19 

1730  FOR  19=1  TO  30  STEP  1 

1735  WRITE  5,SCI93 

1740  NEXT  19 

1790  SETW  6  TO  1 

1795  WRITE  6,L3,A3,B1,C1 

1800  FOR  19=1  TO  L3  STEP  1 

1805  WRITE  6,GCI93 ,RCI9J 

1810  NEXT  19 

1825  SETW  : 7  TO  1 

1830  WRITE  7, A3, B1, Cl, Ml 

1840  SETW  8  TO  1 

1845  WRITE  8,  I,CCI3  ,T(n  , P2, A6, SI , U Cl)  , N1 , U3, D4, A1 , A2 

1850  SETW  9  TO  1 

1855  FOR  19=1  TO  30  STEP  1 

1860  WRITE  : 9, H  C 19) 

1862  MEXT  19 
1865  SETW  10  TO  1 
1870  WRITE  10, 18 

1889  SETW  11  TO  1 

1890  WRITE  : 11, 17, J3, I4,H1,M4, J1 

1891  FOR  19=1  TO  30  STEP  1 

1892  WRITE  : 1 1 ,  H  CI9) ,UC19) 

1893  NEXT  19 

1894  SETW  12  TO  1 

1895  WRITE  : 12, 16 

1900  REN  - 

1901  REN  INPUT  FOR  DIAG 

1902  REN -  - 

1903  IF  J3<  > 1  THEN  1920 
1910  LET  Q7=N3 

1920  IF  J3<  >0  THEN  1940 

1930  LET  Q7=N6 

1940  IF  J3<  >1  THEN  1960 

1950  LET  Q8=INT ( CN3-N6)  V  CN6-13 ) 

1960  IF  J3<  >0  THEN  1980 
1970  LET  08=0 
1980  LET  Q9=J3 
1990  WRITE  13,07,08,09 

2000  REN  - 

2010  CHAIN  "*DIAG" 

2020  REN  - 

9999  END 


END  OF  LISTING 
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OLD  *NAINL1 
LIST 

FILE  *NRINL1 


0005 

0010 

0015 

0016 

001? 

0020 

0025 

0030 

0032 

0035 

0040 

0045 

0050 

0055 

0060 

0065 

0070 

0075 

0080 

0085 

0090 

0095 

0100 

0105 

0110 

0115 

0120 

0125 

0130 

0135 

0140 

0145 

0150 

0155 

0160 

0165 

0170 

0171 

0172 

0175 

0180 

0185 

0190 

1000 

1005 

1010 

1015 

1020 

1025 

1030 

1035 

1040 

1042 

1045 


reh  ********************************************************************** 

REN  SUBROUTINE  NAINL 1  CNAINL-PILE  TO  DIRG3 

REN  ********************************************************************** 

DISP  "  INPUT  UERIF I CRT  I ON" 

DCL  SINGLE 

files  conn8;p;rb;rr 

SETU  : 1  TO  1 
SETU  2  TO  1 
SETU  3  TO  1 

REN - 

REN  RERD  FRON  FILES 

REN - 

RERD  1, J3,R3,B1,C1,N1, J5, J4 

ON  J 5  GOTO  60.65 

RERD  •'  1 . 03.  F 1  >  T 1 .  P3 

RERD  1.N6 

IF  J3<>1  THEN  80 

RERD  1.N3 

IF  J3O0  THEN  90 

RERD  1.J2 

RERD  1.H4 

IF  J 3=0  THEN  110 

RERD  : 1.E4.R5.R7.E5.R6.R8 

GOTO  115 

READ  1.E4.R5.R? 

IF  J4=0  THEN  140 
RERD  1.N2 

FOR  J=1  TO  N2  STEP  1 
RERD  - 1  ,  J  ,  fl  C  J  3 . B  C  J  3 
NEXT  J 
RERD  1.U1 
IF  U1=1  THEN  170 
READ  : 1 . N5 

FOR  J=1  TO  N5  STEP  1 
RERD  1.NCJ3 
NEXT  J 

RERD  H.N3.N6 

REN  INITIALIZATION  OF  NTHIN.NZS. ISLDPT 
LET  Z1=Z2=Z3=0 

REN - 

REN  DINENSION 


DIN  RC503  .BC503  .NC303  ,LC25,  183  ,  NC253  .TC253  , DC253  ,  Ut253  ,  EC253  .FC253  .S(253 

REN - 

REN - 

REN  NAINLINE  NRINL1 

REN - 

IF  J 3<  > 1  THEN  1065 
GOSUB  1475 

PRINT  ••  REGULAR  nUBBER  FENDER  DATA" 

PRINT  _ _ _ _ ••  1)00045 

PRINT 

PRINT  USING  1042, R3 

A  COEFFICIENT  =  «••*.»§•# 

PRINT  USING  1047,81 


m 


m 


184?  :  B  COEFFICIENT  =  «••#.»«•• 

1050  PRINT  USING  1852, Cl 

1952  C  COEFFICIENT  =  #»«*.!#•• 

1055  IF  H1<= IE-3  THEN  1065 

1060  PRINT  USING  1062, Ml 

1062  :  MAXIMUM  DEFLECTION  =  *••.§•••  IN. 

1065  ON  J 5  GOTO  1070,1110 
1070  GOSUB  1475 

1075  PRINT  '•  GRAUITY-RETRACTABLE  FENDER  DATA" 

1080  PRINT  "  _ _ _ " 

1085  PRINT 

108?  PRINT  USING  1090, U3 

1090  :  HEIGHT  OF  COUNTER- WE  I GHT  =  #«*•.#•••  K 

1092  PRINT  USING  1095, FI 

1095  :  SUPPORT -COUNTER- HE  I GHT  D I STRNCE=  •**«.»«••  IN 

1097  PRINT  USING  1100, T1 

1100  :  ANGLE  OF  TRQCT=  #§»#.»«••  DEG 

1102  PRINT  USING  1105, P3 

1105  :  COEFFICIENT  OF  FRICTION=  ••#».#••• 

1110  GOSUB  1475 

1115  PRINT  "  SYSTEM  CONFIGURATION  DATA** 

1120  PRINT  **  _ _ _ ** 

1125  PRINT 

1130  PRINT  USING  1132, N6 

1132  :  NUMBER  OF  PILE  GROUPS  =  lit 

1135  IF  J3<>1  THEN  1145 
1140  PRINT  USING  1142, N3 

1142  :  NUMBER  OF  FENDERS  =  »»• 

1145  IF  J3O0  THEN  1155 
1150  PRINT  USING  1152, J2 

1152  NUMBER  OF  FENDERS  =  «*« 

1155  PRINT  USING  1157, H4 

1157  SPACING  BETWEEN  PILES  =  »*».»•  IN 

1160  GOSUB  1475 

1165  PRINT  **  BEAM  PROPERTIES** 

1170  PRINT  **  _ _ '* 

1175  PRINT 


1180 

IF  J 3 

=0  THEN 

1250 

1  185 

PRINT 

USING 

1 190, E4 

1  190 

MODULUS  OF  ELASTICITY  OF  SUPPPORT 

BEAN  = 

K^IN**2 

1  195 

PRINT 

USING 

1200, R5 

1200 

MOMENT 

OF  INERTIA 

OF  SUPPORT 

BEAN  = 

IN**4 

1205 

1210 

PRINT 

USING 

1210, R7 

AREA 

OF  SUPPORT 

BEAN  = 

IN**2 

1215 

PRINT 

USING 

1220, E5 

1220 

MODULUS  OF 

ELASTICITY 

OF  FENDER 

BEAN  = 

K/-IN**2 

1225 

PRINT 

USING 

1230, R6 

1230 

MOMENT 

OF  INERTIA 

OF  FENDER 

BEAM  = 

IN**4 

1235 

PRINT 

USING 

1240, R8 

1240 

1245 

GOTO 

1265 

AREA 

OF  FENDER 

BEAN  = 

IN**2 

1250 

PRINT 

USING 

1 190, E4 

1255 

PRINT 

USING 

1200, R5 

1260 

PRINT 

USING 

1210, R? 

1265 

1270 

GOTO 
IF  J4 

1270 
=0  THEN 

1330 

000066 

1275 

GOSUB 

1475 

1280 

PRINT 

TAB T26J , "COORDINATES  OF  JOINTS" 

1285 

PRINT 

TAB  C26J i "_ 

1 1 

1290 

PRINT 

1295 

PRINT 

TAB C6J 

; "JOINT", TAB (36J . "X",TABC64J , "Y" 

1300 

1305 

1310 

1315 

1320 

1325 

132? 

1330 

1335 

1340 

1345 

1350 

13  55 
1360 
1365 
1370 
1375 
1380 
1385 
1390 
1395 
1400 
1405 
1410 
1415 
1420 
1425 
1427 

1429 

1430 
1435 
1440 
1445 

14  50 
14  55 
1460 
1465 
1470 
1475 
1480 
1485 
1490 
1495 
1500 
1505 
1510 
1520 
1530 
1548 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 


PRINT  T0BC63  ;  "NUMBER1*;  TOBC313  ;  "COORD I NOTE 11 ;  TRBC593 ;  "COORDINATE" 
PRINT  TOBC343  , "CIN3 ";TPBC623 , "CIN3 " 

PRINT 

FOR  J=1  TO  M2  STEP  1 

PRINT  USING  1325, J,OCJ3  ,BCJ3 

»»•  #####.###§  ««*««. 

NEXT  J 
GOTO  1335 
IF  U1=1  THEN  1385 
GOSUB  1475 

PRINT  "  RIGID  SUPPORT" 

PRINT  "  _ _ " 

PRINT 

PRINT  "  SPRING  NO. " 

FOR  J=1  TO  N5  STEP  1 
PRINT  USING  1375, NCJ3 

«*• 

NEXT  J 
GOTO  1390 

IF  J 3<  > 1  THEN  1400 
LET  M3=N3 

IF  J 3<  >0  THEN  1410 
LET  N3=N6 

IF  J3<  >1  THEN  1420 
LET  M4=  CN3-N63 / CN6- 1 3 
IF  J 3<  >0  THEN  142? 

LET  N4=0 
LET  H5= J 3 
GOTO  1510 

REN - 

REM  COLL  SUBROUTINE  DIOG 
REN  GOSUB 


REM  PRINT  SUBROUTINE 

REM - 

FOR  19=1  TO  4  STEP  1 

PRINT 

NEXT  19 

RETURN 


REM  WRITE  INTO  FILES 

REM - 

SETW  4  TO  1 
FOR  19=1  TO  25  STEP  1 
FOR  J9= 1  TO  18  STEP  1 
LET  L  C 1 9 , J 93  =0. 0 
WRITE  4,LCI9,J93 
NEXT  J 9 
NEXT  19 

FOR  19=1  TO  25  STEP  1 

LET  MCI93=T  C I  93 =D C 1 93 =U C 1 93 =E  CI93=F  CI93=S 1 1 93=0. 0 
WRITE  4.MCI93 ,TCI93 ,DCI93 .UCI9) ,ECI93 ,FCI9) ,SCI93 
NEXT  19 
LET  U6=0 
LET  F  C13=1.0 

WRITE  2,U6,Z1,Z2,Z3,F C 1 3 
WRITE  3 , M3 , N5 , M4 

DISP  "REMOUE  HOT  OPT  OND  RUN  *MPINL2" 
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1670  FOR  19=1  TO  3  STEP  1 

1675  FOR  K9= 1  TO  100  STEP  1 

1680  BEEP 

1685  NEXT  K9 

1690  DELAY  6 

1695  NEXT  19 

9999  END 

END  OF  LISTING 


FILE 


9005 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0020 

0025 

0040 

0045 

0050 

0054 

0055 

0060 

0064 

0065 

0070 

0075 

0079 

0080 

0085 

0090 

0094 

0095 

0100 

0105 

0107 

0108 

0110 

0115 

0120 

0125 

0135 

0136 

0137 

0138 

0139 

0141 

0142 

0143 

0144 

0145 

0146 

0147 


*NATR I X 


REN  *********************************************************************** 

REN  SUBROUTINE  NRTR I X C I NCLUDES  NEHST , CALC2>  KURLD 

REN  ********************************************************************** 

DCL  SNC3  ,SQCD  ,  SX  CD  ,SLO  ,  SJ  CD  ,  SK  CD  ,  SRCD  ,  SP  CD  ,  SG  CD  ,  SR  1 ,  SN ,  SB3 ,  SB2 ,  SC3 ,  S  '  '  ,  SB 
DCL  SF1 , SF2, SF3,SH5,SI 1 ,SI2,SI3,SI4,SI5,SI8,SI6,SI?,SH1, SH2 , SH3 , SH4 , SG 1 , SJ 1 
DCL  SJ2,SJ3,SG2,SK5,SK1,SK2,SK3,SK?,SK4,SK8,SL1,SL2,SN9,SN1 , SN8 , SN4 , SN8 , SN2 
DCL  SN1 ,SN5,SN6.SP5,SQ1,SQ2,SQ3,SQ4,SR1,SR2,SR3,SS9,SS5,ST1 , SU1,SZ1 
DCL  SCCD  .SI  CD  ,  St  CD  >  SH  CD  ,  SF  CD 
FILES  CON? 

SETU  1  TO  1 

REN - 

REN  RERD  FRON  FILES 

REN - 

REN  P3=NIX0N,  N9=N,  P4=NJNJ 

RERD  •'  1  >  P3j  N9  j  P4 

FOR  19=1  TO  N9  STEP  1 

REN  J CI9D=JJ CID ,  KCI9D=JKCID,  CCI9D=AXCI3,  ICI9D=IZCID,  HCI9D=LCID 
RERD  1  <  J  CI9D  ,  K  C 1 93  »  C  C 1 9D  >  I  CI9D  ,  H  C  I  93 
NEXT  19 

FOR  19=1  TO  N9  STEP  1 

REN  E  Cl  9D  =ES  C 1 3  »  UCI93=XCCI3,  UCI9D=YCCID 
READ  1/ECI9D  , U  CI9D  *  U  CI9D 
NEXT  19 

FOR  19=1  TO  P4  STEP  1 

REN  PCI9D=RLCID»  X  C I9D  =CRL  C I D  *  DCI9D=DCID 
RERD  1  ,PCI9D ,XCI9D ,DCI9D 
NEXT  19 


RERD  : 1 , N4 , I8»N8>K4,N1 
FILE  1,"C0N8" 

SETW  1  TO  1 
RERD  : 1,A1,B2.C4,N1 
RERD  : 1,K7,B,H5.N8,L1 
FILE  1,"C01" 

SETU  1  TO  1 
RERD  1.P2.F1 
FILE  :  1 » "C03" 

SETU  1  TO  1 

FOR  19=1  TO  40  STEP  1 

RERD  1,ACI9D 

NEXT  19 

RERD  : 1,E1 

FOR  19=1  TO  N9  STEP  1 
LET  J  C I  93  =  I  NT  C J  C 1 9D  D 
LET  KCI9D  =  INT  (KCI9D3 
NEXT  19 

FOR  19=1  TO  P4  STEP  1 
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0148  LET  PC 193= I NT CPCI93  3 
0149  LET  XCI93  =  INT  CXCI933 
0150  NEXT  19 

0151  REN  FOR  19=1  TO  N9  STEP  1 
0152  REN  LET  HCI93=HC193+.001 
0153  REN  LET  HCI93=INT CHCI93  3 
0154  kEN  NEXT  19 
0155  REN  DENENSIONINC  OF  ARRAYS 

0160  DIN  J  C503  t  K  C503  » C  C503  >  I  C503  >  E  C503  •  H  C503  »  U  C503  >  U  C503 
0165  DIN  P  C1203  *  X  C1203  « D  C1203  *  R (503  * Y  C96# 153  <  A  C403  > F (303 

0170  REN  - 

0175  REN 
0180  REN 

0182  FILE  :  1,MPOINT2" 

0183  SETU  : 1  TO  1 
0190  READ  -1,U3 
0195  IF  U3=0  THEN  400 
0197  FILE  :  1,,,P02“ 

0200  SETU  -1  TO  1 
0205  READ  1,K4,K5,H5 
0210  FOR  19=1  TO  P4  STEP  1 
0215  READ  : 1 >  D  CI93 
8220  NEXT  19 
8225  GOTO  435 

0385  REN  - 

0390  REN  SUBROUTINE  NAINCFRON  CALL  INPT  TO  CALL  MATRIX 

0395  REN  - 

0400  FOR  19=1  TO  H9  STEP  1 

0485  LET  R CI93  =0. 0 

0410  NEXT  19 

0415  LET  Q1=8 

0420  LET  K5=H5 

0425  LET  H5=0 

0430  GOTO  435 

0435  FOR  19=1  TO  N8  STEP  1 

0440  FOR  J9=1  TO  K5  STEP  1 

0445  LET  Y CI9* J93  =0.0 
0450  NEXT  J9 
0455  NEXT  19 

0485  REN  - 

0490  REN  MAINLINE  MATRIX 

0495  REN  - 

0588  LET  I1=N4+1 

0585  LET  I 1=INT (113 

0510  FOR  19=1  TO  II  STEP  1 

0515  LET  J1=3*JCI93-2 

0520  LET  J2=3*J  CI93 -1 

0525  LET  J3=3*JCI93 

0530  LET  K1=3*K CI93 -2 

0535  LET  K2=3*K  CI93 -1 

0540  LET  K3=3*KCI93 

0545  LET  S1=E  CI93  »C  CI93  ^HCI93 

0550  LET  S2=4.0#E  (193  *1  CI93  /'HCI93 

0555  LET  S3=1.5*S2'HCI93 

0560  LET  S4=2.0*S3/HCI93 

0565  REN  - 

0570  REN  CALL  SUBROUTINES 
0575  GOSUB  1405 
0580  GOSUB  1615 

0583  REN  - 

0590  NEXT  19 
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0597 

0600 

0605 

0610 

0615 

0620 

0625 

0630 

0633 

0640 

0645 

0650 

0655 

0660 

0665 

0670 

0675 

0680 

0685 

0690 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0787 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0730 

0735 

0740 

0745 

0750 

0755 

0760 

0765 


LET  12=11+1 

LET  I3=I2+H4 

LET  1 2= I NT  Cl 23 

LET  I3=INT CI33 

FOR  19=12  TO  13  STEP  1 

LET  J 1=3*J  CI93 -2 

LET  J2=3*J  CI93-1 

LET  J3=3*JCI93 

LET  K1=3*K  CI93 -2 

LET  K2=3*K CI93 -1 

LET  K3=3*KCI93 

LET  S1=E  CI93  *C  CI93 ✓MCI 93 

LET  S2=4.0*ECI93*I  CI93/HCI93 

LET  S3=1.5*S2/HCI93 

LET  S4=2.0»S3^HCI93 

REN - 

REN  CALL  SUBROUTINES 
GOSUB  1405 
GOSUB  1615 

REN - 

NEXT  19 

FILE  :  1,MC0n9“ 

SETW  : 1  TO  1 
FOR  19=1  TO  20  STEP  1 
READ  : 1  *  I CI93 
NEXT  19 

FOR  19=1  TO  30  STEP  1 
RERD  :1,FCI93 
NEXT  19 

FOR  19=1  TO  N8  STEP  1 
RERD  :1,ECI93 
NEXT  19 

IF  L1=1  THEN  712 
FILE  :  1 ,  ,,P2" 

FOR  19=1  TO  30  STEP  1 
RERD  : 1 j  F  C 1 93 
NEXT  19 

IF  U3=0  THEN  721 
FILE  :  1 ,  *,P02" 

RERD  : 1 #  U1 *  U1 *  U1 
FOR  19=1  TO  P4  STEP  1 
RERD  : 1 , U1 
NEXT  19 

FOR  19=1  TO  N8  STEP  1 

RERD  :1,ICI93 

NEXT  19 

LET  14=13+1 

LET  I5=I3+N4 

IF  18=0  THEN  920 

LET  16=0 

LET  I4=INT CI43 

LET  I5=INT CI53 

FILE  :  1  *  ,,C0H4" 

FOR  19=14  TO  15  STEP  1 
LET  16=16+1 
LET  J 1=3*J  CI93 -2 
LET  J2=3*J  CI93-1 
LET  J3=3*J  CI93 
LET  K1=3*K  CI93 -2 
LET  K2-3+RCI93-1 
LET  K3-3+KCI93 


'7. 

-■* 


mrnm 


*fe??8  IF  18*0  THEN  810 
0775  LET  D1-0 (K23 -0(J23 
8780  LET  D2-0 (K13-D(J13 
8785  LET  D1«SQR(D1t2+D2t23 

8790  REN  - 

8795  REN  COLL  SUBROUTINE 
8880  GOSUB  1988 

8885  REN  - 

8810  LET  I7-I6+N8 

8815  IF  1800  THEN  822 

0820  LET  R1— R (I9+N43 

0822  SETH  1  TO  17 

0825  WRITE  :l,R1 

8830  LET  RU93-R1 

8835  LET  SI— R(I93 

0840  LET  B1-0.0 

0845  FOR  J9-1  TO  K7  STEP  1 

0850  LET  B1-B1+B 

0855  NEXT  J9 

0880  LET  S2-7000 

0885  IF  1800  THEN  875 

0870  LET  S2-S9 

0875  LET  S3-1.5*S2/H(I93 

0880  LET  S4-2.0*S3xH(I93 

0885  REN  - 

0890  REN  CALL  SUBROUTINES 
8895  GOSUB  1405 
0900  GOSUB  1615 

0905  REN  - 

0910  NEXT  19 
0915  IF  18-0  THEN  2110 
0920  GOTO  925 
0925  LET  H1-I5+1 
0930  LET  H2-I5+N8 
0935  LET  H3-0 
0940  LET  H4*N4«3-»2 
0945  LET  H1-INTCH1J 
0949  LET  H2-INTCH23 
0950  FILE  :  1,"ZR1" 

0951  SETH  : 1  TO  1 

0952  FOR  K9-1  TO  30  STEP  1 

0953  REAO  1,C(K93 

0954  NEXT  K9 

0955  FILE  :  1,"C0H4“ 

0956  FOR  19— HI  TO  H2  STEP  1 
0960  LET  H3-H3+1 
0965  LET  J1»3*JCI91-2 
0970  LET  J2«3*J (193-1 
0975  LET  J3-3+J (193 
0980  LET  K1-3*K (193 -2 
0985  LET  K2«3*K(I93-1 
0990  LET  K3-3*K (193 
0995  IF  K4-1  THEN  1101 
1000  LET  01-0 (K23 -0(J23 
1005  LET  O1*R0S(D13 
1010  LET  02-0 (K13 -D(J 13 

1015  LET  0 1 -SOR (D2t 2+0 1 T23 

1016  REN  PRINT  USING  1017,01 

1017  :  01-  §0008080. 00800000 
1020  LET  R ( 193 -E(H33t 2*01 
1825  LET  P1-R(193*I (I9-H43 
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1030  IF  INTCFCI9-H433O0  THEN  1045 
1035  IF  P1<=P2  THEM  1045 
1040  LET  RCI93=P2^I CI9-H43 
1045  IF  1800  THEN  1055 
1050  LET  RCI93 -RCI93 ^2 

1055  IF  1801  THEN  1075 

1056  REN  PRINT  18,CCI9-H43 ,RCI93 
1060  IF  I  NT  CF  CI9— H43  3  01  THEN  1075 
1065  IF  RCI93  >=1.0  THEN  1075 

1070  LET  R  CI93  =1 . 0 

1075  IF  1800  THEN  1091 

1080  IF  I  NT  CF  CI9-H43  3  01  THEN  1091 

1085  IF  RCI93  >=0.5  THEN  1091 

1090  LET  R  CI93 =0. 5 

1091  GOTO  1180 

1101  LET  RCI93-RCH33 

1105  LET  P1=R  CI93  »I CI9-H43 

1110  IF  INT  CF  CI9-H43 3  08  THEN  1125 

1115  IF  P1<=P2  THEN  1125 

1120  LET  RCI93=P2>'I  CI9-H43 

1125  IF  1800  THEN  1140 

1130  IF  L1=1  THEN  1140 

1135  LET  RCI93=RCI93>'2.0 

1140  IF  1801  THEN  1160 

1145  IF  INTCFCI9-H43301  THEN  1160 

1150  IF  R CI93  >=1 . 0  THEN  1160 

1155  LET  R CI93  =  1 -  0 

1160  IF  1800  THEN  1180 

1165  IF  INT  CF  CI9-H43  3  01  THEN  1180 

1178  IF  R  CI93  >=0. 5  THEN  1188 

1175  LET  R CI93  =0. 5 

1188  GOTO  1185 

1185  LET  N2=N1 

1190  LET  N1-N1+1 

1195  LET  H1=INT  CH13 

1280  LET  H2=INT  CH23 

1205  LET  N1—INT  CN13 

1210  FOR  J9=H1  TO  H2  STEP  HI 

1215  IF  I9=J9  THEN  1230 

1220  NEXT  J9 

1225  LET  R CI93  =0. 0001 

1230  GOTO  1231 

1231  LET  N1=N2 

1248  IF  CCI9-H43  01  THEN  1250 
1245  LET  R  CI93 -1E7 
1250  IF  1808  THEN  1257 
1255  LET  RCI93-RCI93 *2.0 
1257  SETW  : 1  TO  H3 
1260  WRITE  : 1  *  R  C 1 93 
1265  LET  B1—0. 0 

1270  FOR  J9-1  TO  R7  STEP  1 

1271  REN  PRINT  USING  1272, B 

1272  :  ••••#• 

1275  LET  B1*B1+B 
1280  NEXT  J9 

1285  LET  S1-RCI93 
1298  LET  S2«E1»B1^F1*12 

1291  REN  PRINT  USING  1292, SI, S2 

1292  :  SI-  S2 

1295  IF  S2<- 14000.0  THEN  1305 
1300  LET  S2- 14000.0 


1305  IF  S2>s7000. 0  THEN  1315 

1310  LET  S2=?000.0 

1315  LET  S9=S2 

1320  LET  S3*  1.5*52^  Cl  93 

1325  LET  S4*2.0*S3>'HCI93 

1330  REN  - 

1331  ■  ••••  EE=######00. ##•#  FL=*t#.t  PHPX=t#tttttt . #t  K=*t«  NZS=»0 

1335  REN  CALL  SUBROUTINES 
1340  GOSUB  1405 
1345  GOSUB  1615 

1350  REN  - 

1355  NEXT  19 

1356  REH  FOR  19=1  TO  61  STEP  1 

1357  REN  FOR  J9=1  TO  10  STEP  1 

1358  REH  IF  YCI9,J93=0.0  THEN  1360 

1359  REN  PRINT  USING  1360, 19, J9, YCI9, J93 

1360  REN  :  YC»tt,*«»3=  *••*•••»*«.»••*••»»• 

1361  REN  NEXT  J9 

1362  REN  NEXT  19 

1363  IF  18=0  THEN  1374 

1364  GOTO  2110 

1365  FILE  :  1,"C02" 

1366  SETU  : 1  TO  90 

1367  FOR  19=1  TO  30  STEP  1 

1368  URITE  M,CCI93 

1369  NEXT  19 

1370  SETU  :1  TO  1 

1371  FOR  19=1  TO  82  STEP  1 

1372  REPO  :1,CCI93 

1373  NEXT  19 

1374  GOTO  724 

1376  REN  SUBROUTINES 
1385  REH 

1390  REN  - 

1395  REN  SUBROUTINE  HEHST 

1400  REN  - 

1405  LET  C1=U  CI93 

1410  LET  C2=UCI93 

1415  LET  ZC1, 13=S1*C1t2+S4*C2t2 

1420  LET  Z  C4, 43  =S1*C1t2+S4*C2t2 

1425  LET  Z  Cl , 43  =-Z  Cl , 13 

1430  LET  ZC4, 1)=-ZC1, 13 

1435  LET  Z  Cl , 23  =  CS1-S43  *C1*C2 

1440  LET  ZC2, 13 = CS1-S43 *C1*C2 

1445  LET  Z C4, 53  =  CS1-S43 *C1*C2 

1450  LET  Z  C5, 43  =  CS1-S43  *C1*C2 

1455  LET  Z  Cl , 53  =-Z Cl , 23 

1460  LET  Z C5, 13  =-Z Cl , 23 

1465  LET  2 C2, 43  =-Z Cl , 23 

1470  LET  Z C4, 23  =-Z Cl , 23 

1475  LET  Z  C 1 , 33  =-S3*C2 

1480  LET  Z C3, 13  *-S3*C2 

1485  LET  Z  Cl , 63  =-S3*C2 

1490  LET  Z  C6, 13  =-S3*C2 

1495  LET  Z  C3, 43  =-Z  Cl ,  33  AftAAK) 

1500  LET  ZC4,33=-ZC1,33  UWUIIM 

1505  LET  Z C4, 63  =-Z Cl , 33 

1510  LET  ZC6,43— ZC1.33 

1515  LET  Z  C2, 23  =S1*C2t2+S4*C1t2 


1520  LET  ZC5,53=S1*C2t2+S4»C1t2 

1525  LET  2  C2*  53 --Z C2»  23 

1530  LET  2 £5/ 23  ~~2 12* 23 

1535  LET  ZC2»33=S3*C1 

1540  LET  2(3*23 =S3*C1 

1545  LET  ZC2.63»S3*C1 

1550  LET  ZC6»23=S3*C1 

1555  LET  2  (3*  53  --Z  (2*33 

1560  LET  2  (5*  33 --Z (2*33 

1565  LET  2  (5*  63  *-2  (2*  33 

1570  LET  2(6*53®-Z(2,33 

1575  LET  2  (3*  33  =S2 

1580  LET  Z(6*63=S2 

1585  LET  2 (3*63  =S2^2 

1580  LET  2  (6*33  ~S2-^2 

1585  RETURN 

1600  REN  - 

1605  REN  SUBROUTINE  CRLC2 

1610  REN  - 

1615  IF  PCJ13O0  THEN  1710 

1620  LET  R2=J 1-X  CJ 13 

1625  LET  Y(R2* 13 =Y(R2* 13 *211,13 

1630  IF  P(J23<>0  THEN  1640 

1635  LET  Y(R2*23=Y(R2*23+Z(1*23 

1640  IF  PCJ33O0  THEN  1655 

1645  LET  C3= J  3-X  C J  33  — R2> 1 

1650  LET  Y  (R2*  C33  =Y (R2* C33  +2 (1  *  33 

1655  IF  PCK13O0  THEN  1670 

1660  LET  C3=K1-X  CK13 -R2-M 

1665  LET  Y(R2*C33=2(1*43 

1670  IF  PCK23O0  THEN  1685 

1675  LET  C3=K2-X(K23-R2+1 

1680  LET  Y  (R2*  033  =2  Cl * 53 

1685  IF  PCK33O0  THEN  1700 

1680  LET  C3=K3-X(K33-R2*1 

1685  LET  Y(R2.C33=ZC1*63 

1700  IF  C3-H5<=0  THEN  1710 

1705  LET  H5=C3 

1710  IF  PCJ23O0  THEN  1780 

1715  LET  R2=J2-X(J23 

1720  LET  Y  (R2* 13  =Y  (R2* 13  *2 (2*  23 

1725  IF  PCJ33O0  THEN  1735 

1730  LET  Y(R2*23 *Y (R2* 23 +2 (2 *33 

1735  IF  PCK13O0  THEN  1750 

1740  LET  C3=K1-X  CK13  -R2+1 

1745  LET  Y(R2.C33=Z(2,43 

1750  IF  POC23O0  THEN  1765 

1755  LET  C3=K2-X(K23-R2*1 

1760  LET  Y  (R2*  C33 =2 (2*  53 

1765  IF  PCK33O0  THEN  1780 

1770  LET  C3=K3-X  CK33 -R2+ 1 

1775  LET  Y(R2*C33*Z(2*63 

1780  IF  C3-H5<*0  THEN  1780 

1785  LET  H5-C3 

1780  IF  PCJ33O0  THEN  1860 

1795  LET  R2»J3-X(J33 

1800  LET  Y(R2*  13*Y(R2*  13+2(3*33 

1805  IF  PCK13O0  THEN  1820 

1818  LET  C3*K1-X  CK 11 -R2+ 1 

1815  LET  Y(R2*C33**2C3*43 

1828  IF  PCK23O0  THEN  1835 
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1825  LET  C3=K2-XCK23-R2*1 

1830  LET  YCR2jC33 =Z (3/53 

1835  IF  PCK33O0  THEN  1850 

1840  LET  C3=K3-XCK33-R2*1 

1845  LET  YCR2,C33=ZC3,6J 

1850  IF  C3-H5<==0  THLN  1860 

1855  LET  H5»C3 

1860  IF  PCK13O0  THEN  1900 

1865  LET  R2=K1-X  CK13 

1870  LET  Y  CR2/ 13  =Y  CR2> 13  *2 C4«  43 

1875  IF  PCK23O0  THEN  1885 

1880  LET  Y CR2*  23  *Y CR2>  23  *2 C4<  53 

1885  IF  PCK33O0  THEN  1908 

1890  LET  C3=K3-X  CK33 -R2+ 1 

1895  LET  YCR2jC33 =YCR2»C33-*ZC4»63 

1900  IF  PCK23O0  THEN  1925 

1905  LET  R2=K2-X  CK23 

1910  LET  YCR2,13=YCR2,13+ZC5,53 

1915  IF  PCK33O0  THEN  1925 

1920  LET  Y  CR2*  23  =Y  CR2>  23  *2  C5 *  63 

1925  IF  PCK33O0  THEN  1940 

1930  LET  R2=K3-X  CK33 

1935  LET  YCR2,  13=YCR2,  13+2(6,63 

1940  GOTO  1945 

1945  IF  H5<=K5  THEN  1960 

1950  PRINT  USING  1955,H5,K5 

1955  TRUE  BANDWIDTH  «•»••  IS  GREATER  THAN  INTI AL  UALUE  HIM 
I960  RETURN 

1965  REN  - 

1970  REN  SUBROUTINE  KUAL 

1975  REN  - 

1980  LET  D1=ABS  CD13 
1985  IF  HI >=1E-3  THEN  2085 
1990  IF  ABS  CA13  <  =  1E-4  THEN  2850 
1995  LET  03=B2>r  C2. 0+A13 
2800  REN 

2805  REH  RLINE=THE  LIHITING  UALUE  OF  K  TO  BE  USED,  THIS 
2810  REH  IS  WHERE  HAX  DEFLECTION  IS  REACHED 
2015  REN 

2020  LET  D3=ABS  CD33 

2025  LET  R3=A1*D3t2+B2*D3+C4 

2030  LET  R1-R3 

2035  IF  D1 >=D3  THEN  2045 

2040  LET  R1=A1*D1t2+B2*D1+C4 

2045  GOTO  2101 

2050  GOTO  2075 

2055  REH 

2060  REN  IF  CONTROL  REACHES  HERE  THE  K  TERN  IS  A  STRAIGHT 
2065  REN  LINE  FUNCTION 
2070  REH 

2075  LET  D3*C4^B2 
2O80  GOTO  2020 
2085  LET  D3*H1 

2090  LET  R1»A1*D3t2+B2*D3+C4 
2095  IF  D1 >*D3  THEN  2101 

2100  LET  R1«A1*D1t2+B2*D1+C4 

2101  RETURN 

2118  REN  - 

2115  REN  FILE  OUTPUT 

2120  REN  - 

2122  FILE  :  1,"P01" 
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213* 

2132 

2133 
2135 
2140 
2145 
2150 
2155 
216* 
2105 
2166 
2167 
2160 
2169 


'3&taate«safc,.: 


WRITT  1,NO,K5,IS,eC,N0; 
RCII  PRINT  USING  2133.K3, 
:  K5-  60000  H5-  66660 

FOR  19-1  TO  l«0  STEP  1 
FOR  J9— 1  TO  K5  STEP  1 
WRITE  :1.VCI9.Jn 
NEXT  J9 
NEXT  19 

FOR  19-1  TO  P4  STEP  1 
WRITE  : 1,XCI9T»PCI9J 
NEXT  19 

FOR  19-1  TO  P4  STEP  1 
WRITE  :  1*0(19) ,D(I9) 

NEXT  19 


3005  REN  CHAIN  STRTEHENT 
3010  CHRin  “N0IH1- 

3015  REN  - 

5000  END 

END  OF  LISTING 


OLD  *INPUT 1 
ERROR  187 
OLD  *INPT1 
LIST 

FILE  *INPT1 


0005 

0010 

0015 

0020 

0025 


REN  *-*»•**♦****♦*»** 
REN  SUBROUTINE  INPT1 


0035 


REN  FILE  INPUT 

REN - 

DCL  SOD  *SP t)  ,SQO  ,  SRO  ,ST O  ,  SND  ,SJ  O  >SK C)  ,SCO  .SI  O  ,SEO  ,SUQ  .SUO  ,SNO 
DCL  SN9 
FILES  CONI 


SETW  :1  TO  2 

RERD  : 1,11, LI, K1, 12, N1,N3,N4, PI, N9, A4,f)5,R3,R2,R4,R5,R6,R? 

RERD  : 1,E7,E5,E6,E8,H3,U1,F2, F3, 01,03, N9,F3,N0,N3 

FILE  :  1 ,  ■■CON6- 

SETW  :i  TO  1 

READ  : 1,L3, R6,82,C3 

FOR  19-1  TO  L3  STEP  1 

RERD  : 1,A(I93, BII93 

NEXT  19 

FILE  :  1,**P“ 

SETW  :1  TO  1 

RERD  :1,T5,N9,T6»T7,T8 

REN - 

REN  DINENSI0H1NG  OF  RRRRYS 

REN - 

DIN  DC1291  ,UC563 ,  UC501  ,P  C50)  ,0(50)  ,  R  £503  ,  SC501 
DIN  A  (64) ,0(64)  ,0(120) , T CIO) , WC120J , Z (62) , NC501 
DIN  HC3Q,23  ,6(5Q),F(5Q)  ,CC5»)  ,  HC50J  ,  I  (503  , L(5Q3 


0100 

0105 

0110 


100OT1 


0115 

0250 

0255 

0260 

0262 

0265 

0285 

0280 

0285 

0300 

0302 

0303 

0305 

0310 

0312 

0313 

0315 

0320 

0325 

0330 

0335 

0340 

0345 

0347 

9348 

0348 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0358 

0360 

0361 

0362 

0363 

0365 

0370 

0375 

0485 

8480 

0485 

0500 

0505 

0510 

0515 

8520 

0525 

0530 

0535 

0540 

0545 

0550 

0555 

0560 

0565 

0570 


DIH  J  £50)  .  K  C503  ,  E  C503  .  X  C643  ,  Y  (64)  .  H  (50) 

REH  ???????????????????????????????????“ 


REH  rtYSTERY  URRIRBLE 
LET  F 4=0 
LET  P3=0 

REH  ????????????????????????????????????????????????????????????????????? 

REM - 

REtt  SUBROUTINE  NRINCFRON  STRRT  TO  CALL  INPT3 

REH - 

IF  L1<  >1  THEN  310 
FILE  :  1,“ZZ1“ 

SETW  :1  TO  1 
WRITE  : 1>P6jB2*C3>P3 
IF  L1=1  THEN  320 
FILE  : 

SETW  : 1  TO  1 

RERD  : 1 j R6*  B2*  C3>  P3 

LET  K3=1 

IF  L1<  >1  THEN  348 

IF  K1O0  THEN  348 

FOR  18=1  TO  N8  STEP  1 

LET  D  CI83  =0.0 

NEXT  18 

GOTO  354 

FILE  :  1 # "OY" 

SETW  : 1  TO  1 
RERD  : 1 , W8 

FOR  18=1  TO  W8  STEP  1 
RERD  : 1  j  D  CI83 
NEXT  18 

REN  FILE  :  1,"P7" 

REN  SETW  1  TO  1 

RE n  RERD  :1,L6 

REN  IF  K1O0  THEN  363 

REN  IF  L60L1  THEN  363 

REN  RERD  : 1 , 07 

REN  FOR  18=1  TO  07  STEP  1 

REN  RERD  : 1,DCI83 

REH  NEXT  18 

LET  02= Q1 

IF  F4<=F3  THEN  375 
LET  02=03 

LET  D3=SQR  CD  CQ2*3- 13 t2+D  CQ2*3-2) t23 


REH  NR INLINE  INPT 1 

REN - 

IF  11=0  THEN  2015 

IF  L1=1  THEN  515 

GOTO  1870 

IF  K1=0  THEN  525 

GOTO  18 70 

IF  1201  THEN  540 

IF  N1O0  THEN  540 

LET  N2=N3 

IF  1200  THEN  550 

LET  N2=2*N4+2 

IF  1201  THEN  565 

IF  N1<=0  THEN  565 

LET  N2=N3-  CN4-  CINT  CN4^  CN1-MJ  3+133 

IF  1201  THEN  580 

IF  N1O0  THEN  580 
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*0575  GOTO  583 

0580  GOTO  648 

0585  LET  N3*IMT  CN33 

0590  FOR  J9*1  TO  M3  STEF  1 

0595  LET  XCJ93SRCJ93 

0600  LET  Y  CJ93  SB  CJ93 

0685  MEXT  J9 

0610  LET  L2=4#N4*2 

0615  LET  L2=INT  CL23 

0620  FOR  J9*1  TO  L2  STEP  1 

0625  LET  MCJ93=J9 

0630  NEXT  J9 

0635  GOTO  1370 

0640  IF  12=8  THEM  650 

0645  GOTO  1165 

0658  LET  L2=N4+2 

0655  LET  K2=-1 

0660  LET  L3=-1 

0665  LET  L2=IMT  CL23 

0670  FOR  J9=1  TO  L2  STEP  1 

0675  LET  K2=K2+2 

0680  LET  L3=L3+3 

0685  IF  J90L2  THEM  708 

0690  LET  K2=K2— 1 

0695  LET  L3=L3-1 

0700  LET  XCL33=flCK23 

0705  LET  YCL33=BCK23 

0710  MEXT  J9 

0715  LET  K2=0 

0720  LET  L3-0 

8725  LET  M4=INTCM43 

0730  FOR  J9=1  TO  M4  STEP  1 

0735  LET  K2=K2+2 

0740  LET  L3-L3+3 

0745  LET  XCL33=ACK23 

0750  LET  Y  CL33 =8  CK23 

0755  NEXT  J9 

0760  LET  K2~^ 

0765  LET  L3=0 
0770  LET  M1=1 

0775  FOR  J9=1  TO  M4  STEP  1 
0780  LET  K2=K2+2 
0785  LET  L3=L3+2 
0790  LET  M1=M1+3 

8795  LET  XCM13»C«(K23+flCL33 3^2.8 

0808  LET  Y  CM13  =  CB  CK23  +B CL33  3  ^2.0 

0805  MEXT  J9 

0810  LET  0  C13  SX  C43 

0815  LET  PC13=YC43 

0820  LET  OC13=XC53 

0825  LET  R  C13  =Y C53 

0830  LET  S  C13  =X  C23 

0835  LET  TC13*Y£23 

8840  LET  I3=3*M4+1 

0845  LET  I3=INT CI33 

0850  LET  OC23  =XCI33 

8855  LET  PC23*YCI33 

8860  LET  I3*3*N4+2 

0865  LET  I3*IMT (133 

8870  LET  QC23*XCI33 

0875  LET  RC23-YCI33 


0888  LET  I3=3*N4+4 

0885  LET  1 3= I NT  Cl 33 

0890  LET  S  C23  =X  CI33 

0895  LET  T  C23  =Y  Cl 33 

0900  FOR  J9=1  TO  2  STEP  1 

0905  LET  S1=CRCJ93-T  CJ93  3  /  CQ  CJ93  -S  CJ93  3 

0910  LET  C1=P  CJ93 -S1*0  CJ93 

0915  LET  C2=  CQ  CJ93  -O  CJ93 3 t2*  CR  CJ93  -P  CJ93  3 12 
0920  LET  C2=C2-SCJ93t2-TCJ93t2 
0925  LET  C2=C2-C1t2+2.0*C1*TCJ93 
0930  LET  C2=-C2 

0935  LET  B1=2. 0*S1*C1-2. 8*S1*T  CJ93 -2. 8*S  CJ93 

0940  LET  R1=S1t2+1.0 

0945  LET  R1=B1t2-4.0*R1*C2 

0950  IF  R1 >0  THEN  980 

0955  LET  R1=0. 0 

0960  IF  R1<=0.0  THEN  9 70 

0965  LET  R1=SQR  CR13 

8970  LET  X1=C-B1-R13^C2.0*ft13 

0975  LET  Y1=S1*X1+C1 

0980  LET  X2=  C-B1+R13  s C2. 0*013 

0985  LET  Y2=S1*X2+C1 

0990  LET  D1=SQRCCOCJ93-X13t2+CPCJ93-Y13  t23 

0995  LET  D2=  CO  C J 93  — X23  T2+  CP  C J93 -Y23  T2 

1000  IF  D2<D1  THEN  1020 

1005  LET  yCJ93=X1 

1010  LET  2 CJ93=Y1 

1015  GOTO  1030 

1020  LET  U  CJ93  =X2 

1025  LET  2  CJ93  =Y2 

1030  NEXT  J9 

1035  LET  XC13=0C13 

1040  LET  Y  C13  =2  C13 

1045  LET  I3=3*N4+3 

1050  LET  I3=INT  CI33 

1055  LET  XCI33=0C23 

1057  LET  Y CI33  =2 C23 

1060  LET  L2=N4+1 

1065  LET  L2= INT  CL23 

1070  FOR  J9=1  TO  L2  STEP  1 

1075  LET  NCJ93=J9 

1080  NEXT  J9 

1085  LET  K2=3*N4+2 

1090  LET  L3=2*N4+2 

1895  LET  L2=N4+2 

1180  LET  L4=2*N4+1 

1105  LET  L2=INT  CL23 

1110  LET  L4=INT  CL43 

1115  FOR  J9*L2  TO  L4  STEP  1 

1120  LET  N  CJ93  =0 

1125  LET  K2=K2+1  j 

1130  LET  L3=L3+1 

1135  LET  K2=INT CK23 

1140  LET  L3=INT  CL33 

1145  LET  N  CJ9» 13  =K2 

1150  LET  NCJ9,23=L3 

1155  NEXT  J9 

1160  GOTO  1370 

1165  LET  K2=0 

1170  LET  N5*0 

1175  LET  N6-N1-M 


1180  LET  H3=IHTCH33 

1185  FOR  J9=1  TO  H3  STEP  1 

1190  LET  J1=IHTCJ9^33*3 

1195  IF  J90J1  THEH  1260 

1200  LET  H5=H5+1 

1205  LET  H4=IHT  CH43 

1210  LET  H6=IHT  CH63 

1215  FOR  19=1  TO  H4  STEP  N6 

1220  IF  M5=I9  THEH  1260 

1222  HEXT  19 

1225  LET  I4=H3-1 

1230  IF  J9>=14  THEH  1260 

1235  LET  X3=fl  CK2+23 -0  CK2+13 

1240  LET  Y3=B  CK2+23 -B  CK2+13 

1245  LET  X  CJ93  =R  CK2+13 -X3 

1250  LET  Y  CJ93  =B  CK2+13  — Y3 

1255  GOTO  1275 

1260  LET  K2=K2+1 

1265  LET  X  CJ93  =W  CK23 

1270  LET  Y  CJ93  =B  CK23 

1275  HEXT  J9 

1280  LET  L2=3*H4+2 

1285  LET  L2=IHT  CL23 

1290  FOR  J9=1  TO  L2  STEP  1 

1295  LET  HCJ93=J9 

1300  HEXT  J9 

1305  LET  L2=IHTCH4>'CH1  +  133  +  1 

1310  LET  K2=3*H4+2 

1315  LET  L3=K2-H1 

1320  LET  L2=IHT  CL2T 

1325  LET  K2=IHT  CK21 

1330  LET  L3=IHT  CL3J 

1335  FOR  J9=1  TO  L2  STEP  1 

1340  LET  K2=K2+1 

1345  LET  L3=L3+  CH1  +  13 

1350  LET  K2=IHTCK23 

1355  LET  L3=IHT  CL33 

1360  LET  H  CK23 =L3 

1365  HEXT  J9 

1370  GOTO  1375 

1375  LET  15=3 

1380  LET  16=4 

1385  LET  17=5 

1390  LET  H7=H8— 1 

1395  LET  H7=IHTCH73 

1400  FOR  19=1  TO  H7  STEP  1 

1405  LET  15=15+3 

1410  LET  16=16+3 

1415  LET  17=17+3 

1420  LET  18=15-3 

1425  LET  H1=I6-3 

1430  LET  H2=I7-3 

1435  IF  0BS CYCI53-YCI83  3  >=1E-3  THEH  1625 

1440  IF  0BSCYCI63-YCH1J3 >=1E-3  THEH  1625 

1445  IF  OBSCY  CI73 -Y  CH23  3  >=1E-3  THEH  1625 

1450  HEXT  19 

1455  IF  L1< >1  THEH  1515 

1460  IF  K1<  >0  THEH  1515 

1465  IF  OBSCP13 >=1E-7  THEH  1475 

1470  LET  F1=F2/’COSCP13 

1475  IF  BBS CP13 < IE-7  THEH  1485 


1488  LET  F1=F3^SIMCP13 
1485  LET  F3=F 1 
14S0  LET  F2=F 1 
1435  LET  P2=P 1-3.141 59265^4 . 0 
1508  LET  N9=1 
1505  LET  F3=F3*SIM  CP23 
1510  LET  F2=F2*C0S  CP23 
1515  GOTO  1520 

1520  IF  BBS  CX C23 3  <  =  1E-3  THEN  1550 

1525  LET  S2=X (23 

1530  LET  M3=IMTCM33 

1535  FOR  19=1  TO  M3  STEP  1 

1540  LET  XCI93=XCI93-S2 

1545  NEXT  19 

1550  GOTO  1555 

1555  IF  BBS  CY  C33  3  <=1E-3  THEM  1580 

1560  LET  S7=YC33 

1565  FOR  19=1  TO  M3  STEP  1 

1570  LET  Y  C 1 93  =Y  1 1 93  — S7 

1575  MEXT  19 

1580  GOTO  1585 

1585  LET  R2=M8+1 

1590  LET  S3=SQRC2.03 

1595  FOR  19=1  T9  M3  STEP  1 

1600  LET  X4=X Cl  J 

1685  LET  Y4=Y CI93 

1610  LET  Y  CI93  =  CH3*R2— X4+Y43  'S3 

1615  LET  XCI93  =  CX4+Y43>'S3 

1617  MEXT  19 

1620  GOTO  1890 

1625  GOTO  1630 

1638  LET  15=3 

1635  LET  16=4 

1648  LET  17=5 

1645  LET  M7=M8— 1 

1650  LET  M7=IMT  CM73 

1655  FOR  19=1  TO  N7  STEP  1 

1660  LET  15=15+3 

1665  LET  16=16+3 

1670  LET  17=17+3 

1675  LET  18=15-3 

1688  LET  H1=I6— 3 

1685  LET  H2= I 7-3 

1690  IF  BBSCXCI53-XCI833  >=1E-3  THEM  1890 

1695  IF  BBSCXCI63-XCH133  >=1E-3  THEM  1890 

1700  IF  BBSCXCI73-XCH23  3 >=1E-3  THEM  1890 

1705  MEXT  19 

1710  IF  LIOI  THEM  1770 

1715  IF  K1<  >0  THEM  1770 

1720  IF  BBS CP13 >= IE-7  THEM  1730 

1725  LET  F1=F2'COSCP13 

1730  IF  BBS CP13< IE-7  THEM  1740 

1735  LET  F1=F3^SIMCP13 

1740  LET  F3=F 1 

1745  LET  F2=F 1 

1750  LET  P2=P1+3. 14159265^4.0 

1755  LET  M9=- 1 

1760  LET  F3=F3*SIM CP23 

1765  LET  F2=F2*COS  CP23 

1778  GOTO  1775 

1775  LET  M2=M3-1 


1780  LET  M2=INT  012 J 

1785  IF  RBS  CY  0123 3  <  =  1E-3  THEN  1815 

1780  LET  S4=Y(M23 

1785  LET  M3=IMT  (N33 

1800  FOR  J9=1  TO  M3  STEP  1 

1805  LET  Y  (193  =Y  Cl 83 -S4 

1810  MEXT  18 

1815  GOTO  1820 

1820  IF  RBS(X(333<=1E-3  THEM  1845 

1825  LET  S5=X(33 

1830  FOR  18*1  TO  M3  STEP  1 

1835  LET  X (183  =X (193 -S5 

1840  NEXT  18 

1845  GOTO  1850 

1850  LET  R2=M8+1 

1855  LET  S3=SQR(2.03 

1860  FOR  18=1  TO  M3  STEP  1 

1865  LET  X4=X CI83 

1870  LET  Y4=Y (183 

1875  LET  X(I83=(H3*R2+X4-Y43^S3 

1880  LET  Y(I83=(X4+Y43/S3 

1885  MEXT  13 

1830  GOTO  1835 

1835  IF  L1<  >1  THEM  1345 

1300  IF  K1O0  THEM  1345 

1305  REM  PRINT  "CORD I NOTES  OF  JOINTS" 

1310  REM  PRIMT  " _ _ _ 

1315  REM  PRIMT 
1320  REM  PRIMT 


1325  REM  PRIMT  "JOIMT  X  Y" 

1330  REM  PRIMT  "NUMBER  COORDINOTES  COORDINOTES" 

1335  REM  PRIMT  "  IM  IN" 

1340  REM  PRIMT 

1345  REM  LET  M2=IMT(M23 

1350  REM  FOR  J3=1  TO  N2  STEP  1 

1355  REM  PRIMT  USING  1360, J3.RCJ93 , B(J83 

I860  REM  :  ««•  **•»•*§•.*••• 


1365  REM  NEXT  J3 

1370  FILE  :  1,"ZZ2" 

1371  SETW  :1  TO  1 

1372  FOR  13=1  TO  M3  STEP  1 
1375  LET  J3=I3 

1380  IF  LIOI  THEM  1335 
1385  IF  K1O0  THEM  1335 
1330  WRITE  1,J9.X(J93,Y(J93 
1935  IF  L1=1  THEM  2000 

1998  RERD  : 1 , J9, X (J93 , Y (J9I 

1999  GOTO  2010 

2000  IF  K1=0  THEN  2010 
2005  RERD  : 1, J9,X(J93 ,Y(J9J 
2010  MEXT  19 

2015  GOTO  2020 

2920  IF  11=1  THEN  2500 

2400  FOR  19=1  TO  64  STEP  1 

2405  LET  X (193 =0.0 

2410  LET  Y (193  =0. 0 

2415  MEXT  19 

2500  LET  L5=M4+1 

2505  LET  L6=M4+3 

2510  LET  L7=2*M4+2 

2515  LET  L8=2*M4*4 


"5520  LET  L9=3*N4-»2 

2523  LET  E1=3*N4-*4 

2530  LET  E2=N3— 2 

2535  LET  E3=N3-3 

2540  LET  E4=N3-4 

2545  IF  11*1  THEN  3315 

2550  LET  X (21 =0. 0 

2555  LET  YC23=2.0*U1 

2560  LET  E2=INT  CE23 

2565  FOR  19=5  TO  E2  STEP  3 

2570  LET  X  (193 =X (19-33  +H3 

2575  LET  Y(I93=Y(23 

2580  NEXT  19 

2585  LET  N3=INT(N33 

2590  LET  X(N33=X(N3-23+H3 

2595  LET  Y(N33=Y(23 

2600  LET  X  C13  =0. 0 

2605  LET  Y  C13  =U1 

2610  LET  E3=INT CE33 

2615  FOR  19=4  TO  E3  STEP  3 

2620  LET  XCI93=XC 19-33 +H3 

2625  LET  YCI93=U1 

2630  NEXT  19 

2635  LET  X (N3-13 =X (N3-33 +H3 

2640  LET  Y  CN3-13  =U1 

2645  LET  XC33=H3 

2650  LET  Y  C33  =0. 0 

2655  LET  E4=INT(E43 

2660  FOR  19=6  TO  E4  STEP  3 

2665  LET  X CI93 =X CI9-33 +H3 

2670  LET  Y  CI93  =Y  C33 

2675  NEXT  19 

2680  IF  1200  THEN  2880 

2685  LET  L2=N4+2 

2690  LET  K2=- 1 

2695  LET  L3=-1 

2700  LET  L2=INT (L23 

2705  FOR  J9=1  TO  L2  STEP  1 

2710  LET  K2=K2+2 

2715  LET  L3=L3+3 

2720  IF  J90L2  THEN  2735 

2725  LET  K2=K2-1 

2730  LET  L3=L3-1 

2735  LET  fl(K23=X(L33 

2740  LET  B (K23  =Y  CL33 

2745  NEXT  J9 

2750  LET  K2=0 

2755  LET  L3=0 

2760  LET  N4=INT (N43 

2765  FOR  J9=1  TO  N4  STEP  1 

2770  LET  K2=K2+2 

2775  LET  L3=L3+3 

2780  LET  RCK23=XCL33 

2785  LET  BCK23=YCL33 

2790  NEXT  J9 

2795  LET  L2=N4+1 

2800  LET  L2=INT  CL23 

2805  FOR  J9=1  TO  L2  STEP  1 

2810  LET  H  CJ93  =J9 

2815  NEXT  J9 

2820  LET  K2=N4*3*2 


2825  LET  L3=N4*2+2 

2830  LET  L2=N4+2 

2835  LET  L4=2*N4-M 

2840  LET  L2=INTCL21 

2845  LET  L4=INTCL43 

2850  FOR  J9=L2  TO  L4  STEP  1 

2855  LET  NCJ93=0 

2860  LET  NCJ9,13=K2+1 

2865  LET  NCJ9,23=L3+1 

2878  NEXT  J9 

2875  GOTO  3135 

2880  IF  111  >0  THEN  2945 

2885  LET  L2=N4*4+4 

2890  LET  L2=INT  CL23 

2895  FOR  J9=1  TO  L2  STEP  1 

2900  LET  R  CJ93  =X CJ93 

2905  LET  BCJ93=YCJ93 

2910  NEXT  J9 

2915  LET  L2=4»N4+2 

2920  LET  L2=INT  CL23 

2925  FOR  J9=1  TO  L2  STEP  1 

2930  LET  fl CJ93  =  J9 

2935  NEXT  J9 

2940  GOTO  3135 

2945  LET  K2=0 

2950  LET  L3=0 

2955  LET  N5=0 

2968  LET  N6=N1+1 

2965  LET  N3=INTCN33 

2970  FOR  J9=1  TO  N3  STEP  1 

2975  LET  L3=L3+1 

2980  LET  I4=INTCJ9/33*3 

2985  IF  J90I4  THEN  3035 

2998  LET  N5=N5-H 

2995  LET  N4=INTCN43 

3000  LET  N6=INT  CN63 

3005  FOR  19=1  TO  N4  STEP  N6 

3010  IF  N5=I9  THEN  3035 

3015  NEXT  19 

3020  LET  I4=N3— 1 

3025  IF  J9>=14  THEN  3035 

3030  GOTO  3050 

3835  LET  K2=K2+1 

3040  LET  RCK23=XCL33 

3045  LET  B  CK23  =Y  CL33 

3050  NEXT  J9 

3055  LET  L2=3*N4+2 

3060  LET  L2=INT  CL23 

3065  FOR  J9=1  TO  L2  STEP  1 

3070  LET  N  CJ9I =J9 

3075  NEXT  J9 

3880  LET  K2=3*N4+3-(N1+13 

3085  LET  L3=3*N4+2 

3090  LET  L2=INTCN4>'tN1  +  m*1 

3095  LET  L2=INT  CL2J 

3100  FOR  J9=1  TO  L2  STEP  1 

3105  LET  K2*K2+tN1+1) 

3118  LET  L3»L3+1 
3115  LET  K2-INTCK2T 
3120  LET  L3-INTCL33 
3125  LET  NCL33*K2 


COORDINATES 

IN 


3139  NEXT  J9 
3135  GOTO  3149 
3149  IF  L1<  >1  THEN  3195 
3145  IF  K1<  >9  THEN  3195 
3159  FOR  J9*1  TO  4  STEP  1 
3152  PRINT 

3154  NEXT  J9 

3155  PRINT  "  COORDINATES  OF  JOINTS** 

3169  PRINT  **  _ 

3165  PRINT 
3179  PRINT 

3175  PRINT  **  JOINT  X 

3189  PRINT  “  NUNBER  COORD INI 

3185  PRINT  **  IN 

3190  PRINT 

3195  IF  1201  THEN  3219 

3209  IF  N1<  >9  THEN  3219 
3295  LET  N2*N3 

3210  IF  1200  THEN  3229 
3215  LET  N2«2*N4*2 
3220  IF  1201  THEN  3235 
3225  IF  N1<*0  THEN  3235 
3230  LET  N2*N3- CN4- CINT  CN4^  CN1  +  1) J  ^11 ) 

3235  LET  N2=INT(N21 
3240  FOR  J9*1  TO  N2  STEP  1 
3245  IF  LIOI  THEN  3265 
3250  IF  K1O0  THEN  3265 
3255  PRINT  USING  3269*  J9»  A  (  J91 <  B(J91 

3269  :  •••••••«.•• 

3265  NEXT  J9 

3270  LET  R3*N8*1 
3275  LET  S6*SQR(2.01 
3280  LET  N3-INT(N31 
3285  FOR  19*1  TO  N3  STEP  1 
3290  LET  X4=X  (193 
3295  LET  Y4*Y(I93 
3300  LET  Y(I91*(H3«R3-X4>Y41'S6 
3305  LET  X(I91*(X4*Y41^S6 
3310  NEXT  19 
3315  GOTO  3329 

3329  REN 

3325  REN  NENBER  DESIGNATIONS  ANO  PROPERTIES 

3330  REN  CONPUT AT 1 ON  OF  NENBER  ENDS  AND  PROPERTIES 
3335  REN 
3340  LET  J  ( 1) *2 
3345  LET  K(11*5 

3359  LET  CC11 *A2 
3355  LET  IC11*R4 

3360  LET  E (11 *E5 
3365  LET  L5-INTCL51 
3370  FOR  19*2  TO  L5  STEP  1 
3375  LET  J  (I91*K(I9-11 
3380  LET  K (191 *J (191 +3 
3385  IF  I90N4+1  THEN  3395 
3390  LET  K (191 *J (191 +2 
3395  LET  C(I91*A2 

3409  LET  I (191 *R4 
3405  LET  E (193  *E5 

3410  NEXT  19 
3415  LET  J (N4>23  *1 
3420  LET  X (N4*23  *4 


COORDINATES* 


OOOOfiS 


3425  LET  CCN4+2)*03 
3430  LET  I CN4+2) *R5 
3435  LET  ECN4+2)*E6 
3440  LET  L6*INTCL6) 

3445  LET  L7*INTCL7) 

3450  FO0  I9-L6  TO  L?  STEP  1 
3455  LET  )  CI9)*KCI9-1) 

3460  LET  KCI9)*J CI9)*3 

3465  IF  I9<>2*N4*2  THEN  3475 

3470  LET  K  CIS)  *J  CI9)*2 

3475  LET  C CIS) *03 

3480  LET  I  CIS) *R5 

3485  LET  ECIS)*E6 

34S0  NEXT  19 

3495  LET  JC2*N4+3)*4 

3500  LET  KC2*N4>3)*5 

3505  LET  CC2*N4*3)*04 

3510  LET  IC2*N4*3)~R6 

3515  LET  EC2*N4+3**E7 

3520  LET  L8=INT  CL8) 

3525  LET  L9*INTCL9) 

3530  FOR  I9*L8  TO  L9  STEP  1 
3535  LET  J CI9)*J CI9-1)*3 
3540  LET  K  CI9) * J  CI9)  +  1 
3545  LET  C CIS) *04 
3550  LET  I CI9) *R6 
3555  LET  ECI9)*E7 
3560  NEXT  19 
3565  LET  JC3*N4*3)*3 
3570  LET  KC3*N4*3)*4 
3575  LET  CC3*N4*3)~05 
3580  LET  IC3*N4*3)*R7 
3585  LET  EC3*N4*3)~E8 
3590  LET  E 1*  INT  CE 1) 

3595  FOR  I9-E1  TO  N3  STEP  1 
3600  LET  JCI9)*JCI9-1)*3 
3605  LET  KCI9)*J  CI9)-M 
3610  LET  C  C IS) *05 
3615  LET  I C 19) *R7 
3620  LET  E  CI9)*E8 
3625  NEXT  19 

3630  FOR  J9*1  TO  N3  STEP  1 
3635  LET  LCJ9)*0 
3640  LET  I9-J9 

3645  IF  J  C 19) -K  C 19) <*0  THEN  3665 
3650  LET  H4-JCI9) 

3655  LET  JCI9)-KC19) 

3660  LET  K CIS) *H4 
3665  LET  J2-KCI9) 

3670  LET  J3-JCI9) 

3675  LET  X5*X  CJ2) -X  C J3) 

3600  LET  Y5*V CJ2) -Y C J3) 

3605  LET  HCI9)-SORCX5T2*Y5t2) 
3690  LET  GCI9)*X5'HCI9) 

3695  LET  F CIS) *Y5'HCI9) 

3700  NEXT  J9 
3705  IF  1201  THEN  3720 
3710  IF  N1O0  THEN  3720 
3715  LET  N4-4#N4-*2 
3720  IF  1200  THEN  3730 
3725  LET  N4-2»N4*1 


3730  IF  1201  THEM  3745 
3735  IF  N1<=0  THEN  3745 

3740  LET  n4=4*H4+2-CN4-CINTCN4s'CN1+13}+1JJ 
3745  IF  L1<  >1  THEM  3795 
3750  IF  K1O0  THEM  3795 
3752  GOSUB  4415 


3755  PRIMT  “  MEMBER  DESIGNRTIONS  PMD  PROPERTIES" 

3760  PRIMT  M  _ _ _ _ 

3765  PRIMT 
3770  PRIMT 

3775  PRIMT  "  MEMBER  NEAR  FOR" 

3780PRIMT "  NUMBER  EMD  EMD  AREA  I ME 

3785  PRIMT  "  IN**2  I 

3790  PRIMT 
3795  LET  H4=IMTCH43 
3800  FOR  J9=1  TO  M4  STEP  1 
3805  IF  12=1  THEN  3950 
3810  IF  M  CJ93  >0  THEN  3865 
3815  LET  H5=NCJ9. II 
3820  LET  H6=N(J9. 2) 

3825  LET  0  CJ93  =H  CH53  +H  CH61 
3830  LET  U  CJ93  =C  CH5) 

3835  LET  UCJ93  =  ICH53 
3840  LET  P  CJ93 =G  CH5I 
3845  LET  QCJ91=FCH51 
3850  LET  R CJ93  =  CJ9- CN4+13 1 *2 
3855  LET  StJ9I  =  CJ9-CN4+1I1»2>1 
3860  GOTO  3925 
3865  LET  H7=MCJ93 
3870  LET  H7=IMTCH73 
3875  LET  0CJ93=HCH73 
3880  LET  U CJ93 =C  CH7J 
3885  LET  UCJ93  =  ICH?3 
3890  LET  P CJ93 =G CH7I 
3895  LET  QCJ9)=FCH?) 

3900  LET  R t  J93 =2*J9— 1 
3905  LET  S  CJ93 =2»J9+1 
3910  LET  I4=M4+1 
3915  IF  J9<>14  THEM  3925 
3920  LET  S  CJ9)  =S  CJ91  -1 
3925  IF  LIOI  THEM  3945 
3930  IF  K1O0  THEM  3945 

3935  PRIMT  USING  3940. J9.RU93 .SCJ91 .UCJ93 .UCJ9J .0CJ9J 

3940  :  •••  •••••».»•  «••§••.•#  •«••••.•! 

3945  GOTO  4135 

3950  IF  M1=0  THEM  4120 

3951  IF  LIOI  THEM  4135 

3952  IF  K1O0  THEM  4135 
3955  LET  H7*MCJ93 
3960  LET  H?*INT  CH73 
3965  LET  UCJ93«CCH7J 
3970  LET  U  CJ9J  *1 CH7J 
3975  LET  0CJ93«HCH73 
3980  LET  PCJ9J  =GCH7J 
3985  LET  OCJ93-FCH73 
3998  LET  J1»IMTCJCM73^33-1 
3995  LET  J4=INTCJ1sCM1*U) 

4080  LET  J5=J4*CM1+1) 

4085  LET  J6-J1-JS 
4018  LET  J7=J4*N1*J6 
4015  LET  R  CJ93  *J  CH7) - J7 
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4820  LET  J 1  =  INT  CK (H73  ^33 — 1 

4025  LET  J  4= I  NT  ( J 1  ✓  (N 1  ♦  1 3  3 

4030  LET  J5=J4*  (N1+13 

4035  LET  J6=J 1-J5 

4040  LET  J7=J4*N1+J6 

4045  LET  S  (J93  =K  (H73 - J7 

4050  IF  JCH73  01  THEN  4060 

4055  LET  R(J93  =  1 

4060  IF  J  (H7302  THEN  4070 

4065  LET  R(J93=2 

4070  LET  T(13=3#N4+4 

4075  IF  K(H73  0T(13  THEN  4085 

4080  LET  S(J93=S(J93+1 

4085  LET  T(13=T(13-1 

4090  IF  K(H73  0T(13  THEN  4100 

4095  LET  S(J93=S(J93  +  1 

4100  IF  L1<  >1  THEN  4115 

4105  IF  K1< >0  THEN  4115 

4110  PRINT  USING  3940,  J9,R(J93  ,S(J93  ,U(J93  ,U(J93 ,0(J93 

4115  GOTO  4135 

4120  IF  L1<  >1  THEN  4135 

4125  IF  K1O0  THEN  4135 

4130  PRINT  USING  3940, J9, J (J93 ,KU93 »C(J93 , I (J93 ,H(J93 
4135  NEXT  J9 
4140  REN 

4145  REN  JOINT  RESTRAINT  LIST,CUNULATIUE  RESTRAINT  LIST 
4150  REN  RL=JOINT  RESTRAINT  LIST..  RL (3K-23 , RL  (3K-13 , RL  (3K3 
4155  REN  IF  RSTRT  EXISTS  1  OTHERWISE  0 
4168  REN  CUNULATIUE  RESTRAINT  LIST 
4165  REN 

4170  LET  N9-INT  (N93 

4175  FOR  19=1  TO  N9  STEP  1 

4180  LET  0 (193  =0 

4185  LET  U CI93  =0 

4187  NEXT  19 

4198  LET  TC33=N3-4 

4195  LET  T  C33  = I NT  CT  C33  3 

4200  FOR  J9=3  TO  T (33  STEP  3 

4205  LET  0(J9*3-23=1 

4210  LET  0 (J9*3-13  =1 

4215  NEXT  J9 

4220  LET  W(13=0(13 

4225  LET  N9=INT(N93 

4230  FOR  K9=2  TO  H9  STEP  1 

4235  LET  U(K93=W(K9-13+0(K93 

4237  NEXT  K9 

4240  REN 

4245  REN  STRUCTURE  STIFFNESS  NATRIX 
4250  REN 

4255  REN  J 1 , J 2, J 3= INDEXES  FOR  OISPLACENENT  AT  J  END  OF  NENBER 

4260  REN  K1,K2,K3= INDEXES  FOR  DISPLACENENT  AT  K  END  OF  NENBER 

4265  REN 

4270  LET  N3*INT(N33 
4275  FOR  J9=5  TO  N3  STEP  1 
4280  LET  T(43*INT((J9-23'33*3 

4285  LET  T(53=J9-2 

4290  IF  T  (43  <  >T  (53  THEN  4335 
4295  LET  T(63»Y(J93-V(J9-23 
4300  LET  T (73  =X (J93 -X ( J9-23 
4305  IF  T  (63  00.0  THEN  4320 
4310  LET  2(J93*3. 14159265^2.0 


4315  GOTO  4325 

4320  LET  Z(J93=ATN(T(73xT(63  3 

4325  LET  2  (J9-13  =Z  (J93 

4330  LET  Z  (J9-23  =Z (J93 

4335  NEXT  J9 

4340  LET  T  (63  =Y  (23 -Y  (13 

4345  LET  T (73 =X (23 -X (1J 

4350  IF  T  (63  00.0  THEN  4365 

4355  LET  Z (23 =3. 14159265x2. 0 

4360  GOTO  4370 

4365  LET  Z (23 =ATN(T (73 xT (63 3 

4370  LET  Z(13=Z(23 

4375  LET  T  (63  =Y  (N33 -Y  (N3-13 

4380  LET  T  (73  =X  (N33 -X  CH3— 13 

4385  IF  T  (63  00.0  THEN  4400 

4390  LET  ZCN33 *3. 14159265x2.0 

4395  GOTO  4405 

4400  LET  Z  CN33  =ATN (T (73  xT (63  3 

4405  LET  Z (N3-13  =Z (N33 

4410  GOTO  4514 

4415  FOR  19=1  TO  4  STEP  1 

4425  PRINT 

4435  NEXT  19 

4445  RETURN 

4500  REN  - 

4505  REN  FILE  OUTPUT 

4510  REN -  - - 

4514  FILE  :  1.“C0N7" 

4515  SETM  1  TO  1 
4520  WRITE  . 1.N4.M3.N9 
4525  FOR  19=1  TO  N3  STEP  1 

4530  WRITE  : 1 . J ( 193 , C (193 , C (193 . I (193 , H (193 
4535  NEXT  19 

4540  FOR  19=1  TO  N3  STEP  1 
4545  WRITE  : 1 , E (193 , G (193 . F (193 
4550  NEXT  19 

4555  FOR  19=1  TO  N9  STEP  1 
4560  WRITE  : 1,0(193 ,W(I93 ,0(193 
4565  NEXT  19 

4570  WRITE  : 1.N4, I2.N8.K3.N1 

4574  FILE  :  1.MC06“ 

4575  SETW  : 1  TO  1 

4580  WRITE  : 1 . N9. F3. F2. Q2. Q1 . Q3.D3 

4582  WRITE  1.N3 

4585  FOR  19=1  TO  N3  STEP  1 

4590  WRITE  : 1 . Z (193 

4594  NEXT  19 

4595  FILE  :  1.MP0INT2“ 

4596  SETW  : 1  TO  1 

4597  LET  U3=0.0 

4598  WRITE  :  1,(13 

4599  FILE  :  1,"P" 

4600  SETW  1  TO  1 

4601  WRITE  : 1 » T5»  N9, T6 » T7, T8 

4602  REN  - 

4603  REN  PRINT  USING  4604. T5 . N9. T6, T7, T8 

4604  :  U6-000  NTHIN»ttM  NZS*«t»0  ISLDPT* 

4605  REN  CHAIN  STATEMENT 
4610  CHAIN  ''•MATRIX'* 

4615  REN  - 

5000  ENO 
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F  (13 =•••».•••• 


END  OF  LISTING 


FILE  *DI  AG 


0005  REN  ********************************************** 
0010  REN  SUBROUTINE  DIAG 

0015  REN  ********************************************** 
0016  DISP  "  FRAHE  DI AGRAN" 

0020  DCL  4N*0 
0025  FILES  DRRU 
0030  SETU  : 1  TO  1 
0035  REN 

0040  RERD  : 1 , N1 , N2» 13 
0045  REN 

0050  REN  - 

0055  REN  DINENSIONING  OF  ARRAYS 

0060  DIN  AC123  ,CC123 -DC113  ,GC11)  ,HC11)  ,N*C23,903 

0065  REN  - 

0070  FOR  19=1  TO  10  STEP  1 
0080  PRINT 
0090  NEXT  19 

0500  LET  L1  =  INT  C  CN1-23  ^53+1 
0505  FOR  1=1  TO  LI  STEP  1 
0510  IF  IOI  THEN  565 

0515  PRINT  TAB (233 i “FRRHE  DIRGRRN  CNOT  DRAWN  TO  SCALE) " 

0520  PRINT  TAB  (233  ;  " _ _ _ _ •• 

0525  PRINT 
0530  PRINT 

0535  PRINT  "  N=NENBER  NUNBER" 

0540  PRINT  "  *N*=JOINT  NUNBER" 

0545  PRINT  "  (N3 =SPRING  NUNBER" 

0550  PRINT 
0555  PRINT 
0560  GOTO  590 

0565  IF  INT (1/2*23=1  THEN  575 

0570  GOTO  590 

0575  FOR  19=1  TO  4  STEP  1 

0580  PRINT 

0585  NEXT  19 

0590  LET  11=5*1-4 

0595  LET  12=11+5 

0600  IF  I2<=N1  THEN  610 

0605  LET  I2=N1 

0610  LET  N3=I2-I 1+1 

0615  IF  13=0  THEN  880 

0620  IP  N2O0  THEN  740 

0625  LET  K=0 

0630  FOR  J=I1  TO  12  STEP  1 

0635  LET  K=K+1 

0640  LET  A(K)=2+3*(J-1) 

0645  LET  B(K3=A(K3-1 
0650’  LET  C  CIO  =A  CIO  +1 
0655  LET  DCK)=J 
0660  LET  E  CK) =J+N1  +  1 
0665  LET  FCK)=J+2*N1+2 
0670  LET  G  CIO  *J+3*N1+2 
0675  LET  HCK3  *J+N1 
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0688  LET  L  CIO  = J 
0685  NEXT  J 

0698  LET  0  CK+13  =0  CK3  +3 
0695  LET  0CK+23  =0  00+6 
0708  LET  B  CK+13  =B  00+3 
0705  LET  BCK+23=BOO+6 
0710  LET  DCK+13=DCK3  +  1 
0715  LET  E  CK+13  =E  CK3  +1 
0728  IF  I20N1  THEN  950 
0725  LET  0CK+23=0CK+23-1 
0730  LET  B  CK+23  =B  CK+23 - 1 
0735  GOTO  958 
0740  LET  K=0 

0745  FOR  J  =  I1  TO  12  STEP  1 
0750  LET  K=K+1 

0755  LET  0  CK3  —2*3* CJ- 13  - CJ-1  —  INT  C  CJ+N2- ID  s CN2+13  3  J 

0760  LET  BOO  =0  00-1 

0765  LET  C  CK3  =0 

0770  LET  DOO=J 

0775  LET  EOO=J+N1  +  1 

0780  LET  FCK3=J+2*N1+2 

0785  LET  GOO=0 

0790  LET  HCK3=J  +  INTCN1^CN2+133+1 
0795  LET  L  CK3  =0 
0800  LET  I4=J-1 

0805  LET  1 5= I NT  C  CJ-13 / CN2+13  3  * CN2+13 
0810  IF  14015  THEN  838 
0815  LET  C  CIO  =0  CIO  +1 

0820  LET  G  CIO  =J+3*N1+2-  CJ-INT  C  CJ+N23  ✓  CN2+13  3  3 
0825  LET  L  CK3  =J- CJ-INT  C  CJ+N23 / CN2+13  3  3 
0838  NEXT  J 
0835  LET  J=I2+1 

0840  LET  0  CK+13  =2+3*  CJ- 13  - CJ- 1- INT  C  C J +N2— 13  s CN2+ 13  3  3 

0845  LET  B  CK+13  =0  CK+13  — 1 

0850  LET  D CK+13 =J 

0855  LET  E  CK+13  =J+N1+1 

0860  LET  J=I2+2 

0865  LET  0 CK+23  =2+3* CJ-13-CJ-1-INTC CJ+N2-13  ^  CN2+13 3  3 
0870  LET  B  0023  =0  0023-1 
0875  GOTO  950 
0880  LET  K=0 

0885  FOR  J=I1  TO  12  STEP  1 

0890  LET  K=K+1 

0895  LET  0 00=2* CJ-13  +  1 

0900  LET  C  CK3  =2*J 

0985  LET  NOO=J 

0910  LET  P OO  =J+N1+1 

0915  LET  Q  OO  =J 

0920  NEXT  J 

0925  LET  0  CK+13  =0  OO  +2 
0930  LET  0  CK+23  =0  CIO  +4 
0935  LET  H  CK+13  =1100+1 
0948  IF  N10I2  THEN  950 
0945  LET  0  CK+23  =0  CK+23 - 1 
0950  FOR  J=1  TO  23  STEP  1 
0955  FOR  K=1  TO  80  STEP  1 
0960  LET  N#CJ,K3="  " 

0965  NEXT  K 
0970  NEXT  J 

0975  IF  13=0  THEN  1520 
0980  LET  L2=N3+2 
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0985  FOR  J  =  1  TO  L2  STEP  1 

0990  LET  N1=J 

0995  LET  N4=flCJ3 

1000  LET  L3=1 

1005  LET  1 6= 10* CM1- 13  +1 

1010  LET  I?=3 

1015  REH  - 

1020  GOSUB  1850 

1025  REM  - 

1030  NEXT  J 

1035  LET  L2=  CM3+13  *10+3 
1040  FOR  J=3  TO  L2  STEP  1 
1045  LET  M$ C2#  J3  =“X" 

1050  LET  M*C12,  J3="X" 

1055  MEXT  J 

1060  FOR  J  =  1  TO  M3  STEP  1 
1065  LET  K=10*J+3 
1070  FOR  L9=3  TO  11  STEP  1 
1075  LET  M*CL9,K3="X" 

1080  MEXT  L9 

1085  FOR  L9=13  TO  22  STEP  1 
1090  LET  M*CL9,K3=,,X" 

1095  MEXT  L9 

1100  NEXT  J 

1105  LET  L2=N3+1 

1110  FOR  J=1  TO  L2  STEP  1 

1115  LET  M1=J 

1120  LET  M4=D  CJ3 

1125  LET  L3=3 

1130  LET  16=10*  CM1-13  +6 

1135  LET  17=1 

1140  REM  - 

1145  GOSUB  1850 

1150  REM  - 

1155  MEXT  J 

1160  FOR  J=1  TO  M3  STEP  1 

1165  LET  M1=J 

1170  LET  N4=F  CJ3 

1175  LET  L3 =7 

1180  LET  I6=10*M1+4 

1185  LET  17=2 

1190  REM  - 

1195  GOSUB  1850 

1200  REM  - 

1205  LET  M4=HCJ3 

1210  LET  16=10*  CM1-13  +8 

1215  LET  17=5 

1220  REM  - 

1225  GOSUB  1850 

1230  REM  - 

1235  MEXT  J 

1240  LET  L2=N3+2 

1245  FOR  J=1  TO  L2  STEP  1 

1250  LET  N1=J 

1255  LET  M4=BCJ3 

1260  LET  L3=1 1 

1265  LET  16*10*  CM1-13  +4 

1270  LET  17=4 

1275  REM  - 

1280  GOSUB  1850 

1285  REM  - 
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1290  MEXT  J 

1295  LET  L2=M3+1 

1300  FOR  J  =  1  TO  L2  STEP  1 

1305  LET  M1=J 

1310  LET  M4=E  CJ3 

1315  LET  L3= 13 

1320  LET  16=10*011-13+6 

1325  LET  17=1 

1330  REM  - 

1335  COSUB  1850 

1340  REM  - 

1345  MEXT  J 

1350  FOR  J=1  TO  M3  STEP  1 

1355  LET  H 1= J 

1360  LET  M4=G CJ3 

1365  LET  L3=17 

1370  LET  I6=10*M1+4 

1375  LET  17=2 

1380  REM  - 

1385  GOSUB  1850 

1390  REM  - 

1395  LET  M4=L  CJ3 

1400  LET  16=10*  CM1-13  +8 

1405  LET  17=5 

1410  REM  - 

1415  GOSUB  1850 

1420  REM  - 

1425  LET  M4=C  CJ3 
1430  LET  L3=23 
1435  LET  I6=10*M1+1 
1440  LET  17=3 

1445  REM  - 

1450  GOSUB  1850 

1455  REM  - 

1460  MEXT  J 

1465  IF  M2=0  THEM  1795 
1470  LET  K=0 

1475  FOR  J=I1  TO  12  STEP  1 

1480  LET  K=K+1 

1485  IF  CCK3O0  THEM  1510 

1490  LET  L9=10*K+3 

1495  FOR  M9= 13  TO  22  STEP  1 

1500  LET  M$  CM9*  L93  =  "  " 

1505  MEXT  H9 

1510  NEXT  J 

1515  GOTO  1795 

1520  LET  L2=N3+2 

1525  FOR  J=1  TO  L2  STEP  1 

1530  LET  H1=J 

1535  LET  N4=HCJ3 

1540  LET  L3=1 

1545  LET  I6=10*CM1-13+1 

1550  LET  17=3 

1555  REM  - 

1560  GOSUB  1850 

1565  REM  - 

1570  MEXT  J 

1575  LET  L2=  013+13 *10+3 
1580  FOR  J=3  TO  L2  STEP  1 
1585  LET  M* (2>  J3  ="X" 

1590  MEXT  J 
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1595  FOR  J=1  TO  M3  STEP  1 
1680  LET  K=10*J+3 
1605  FOR  L9=3  TO  22  STEP  1 
1610  LET  N$  CL9»  K3  =  "X“ 

1615  MEXT  L9 

1620  NEXT  J 

1625  LET  L2=N3+1 

1630  FOR  J=1  TO  L2  STEP  1 

1635  LET  M1=J 

1640  LET  N4=MCJ3 

1645  LET  L3=3 

1650  LET  16=10*  CM1- 13  +6 

1655  LET  17=1 

1660  REM  - 

1665  GOSUB  1850 

1670  REM  - 

1675  MEXT  J 

1680  FOR  J=1  TO  M3  STEP  1 

1685  LET  M1=J 

1690  LET  N4=P CJ3 

1695  LET  L3=12 

1700  LET  I6=10*N1+4 

1705  LET  17=2 

1710  REM  - 

1715  GOSUB  1850 

1720  REM  - 

1725  LET  N4=Q  CJ3 

1730  LET  16=10*  CM 1  —  13  +8 

1735  LET  17=5 

1740  REM  - 

1745  GOSUB  1850 

1750  REM  - 

1755  LET  N4=C  CJ3 
1760  LET  L3=23 
1765  LET  I6=10*M1+1 
1770  LET  17=3 

1775  REM  - 

1780  GOSUB  1850 

1785  REM  - 

1790  MEXT  J 

1795  FOR  J=1  TO  23  STEP  1 

1800  PRINT  M*CJ,  13  ;N*CJ,23  ;N*CJ.33  ; M* C J , 43  ;  N*  C  J  *  53  ;N*CJ,63  ;N*CJ,73  ;  M$  C  J  ,  83  ; 

1801  PRIMT  M*CJ,93  ;N*CJ,  103  ;  M*  C  J  ,  1 13  ;  M*  CJ  ,  123  ;  M*  CJ  ,  133  ;  M*  C  J  >  143  ;  M*  C  J  ,  1 53  ; 

1802  PRIMT  M*CJ,  163  ;N*CJ,  173  ;  N*  CJ  ,  183  i  M$  CJ  .  193  ;  M*  C  J  ,  203  ;M»CJ,213  ;N*CJ,223  ; 

1803  PRIMT  N*  CJ , 233  ; N*  C J  » 243  ; M*  C J  >  253 ; M* CJ  > 263  ; M$  C J , 273 ; M*  C J , 283  ; N*  CJ , 293 ; 

1804  PRIMT  N*  CJ  j  303  i  M*  CJ  ,  313  ;N*CJ,323  ;N*CJ,333  ;  M*  CJ  ,  343  ;  N*  CJ  ,  353  ;M*CJ,363  ; 

1805  PRIMT  M»CJ,373  ;M*CJ,383  ;M*CJ,393  ;M*CJ,403  ;  M*  CJ  ,  413  ;  M*  C  J  ,  423  ;  M*  CJ  ,  433  ; 

1806  PRINT  M*  CJ , 443 ; M*  CJ , 453 ; M*  CJ , 463 ; M*  C J , 473 ;  N*  CJ  ,  483 ; M*  C J , 493  ; M*  CJ , 503 ; 

1807  PRIMT  M*  CJ  j  513  ;N*CJ,523  ;M*CJ,  533  ;M*CJ,543  ;  M*  CJ  ,  553  ;  M*  C  J  ,  563  ;N*CJ,573  ; 

1808  PRIMT  M*  CJ  *  583  ; M* CJ , 593 ; M* CJ , 603 ; M* CJ > 613 ;  M*  CJ , 623 ; N$  CJ  *  633  , M*CJ,643 ; 

1809  PRIMT  M$  C J  > 653 ; M*  C J  » 663  ;N*CJ,673 ;M*CJ,683  ; M* CJ ,  693 ; M* CJ , 703  ;N*CJ,713  ; 

1810  PRINT  N*  f J , 723  ; M*  CJ , 733  ; N*  CJ , 743  ; N*  CJ , 753  ; M$  CJ , 763  ; M*  CJ , 773  ; M*  CJ , 783  ; 

1811  PRIMT  N*CJ,793;N*CJ,803 
1815  MEXT  J 

1817  MEXT  I  .  ^ 

1820  GOTO  2300  V  a#  »  7  4 

1825  REM 
1830  REM 

1835  REM  ****************************************************************** 
1840  REM  SUBROUTINE  PLIGN 

1845  REM  ****************************************************************** 


1850  LET  R$(1)  =  **1“ 

1855  LET  R*C2^  =  ••2,, 

1860  LET  R*C33="3M 
1865  LET  Rt  C43  =*‘4" 

1870  LET  R*C53  =  ,,5" 

1875  LET  R*  C63  =“6“ 

1880  LET  R*C73="7“ 

1885  LET  R*C83=M8,‘ 

1890  LET  R*C93="9“ 

1895  LET  R#  C183  =*‘0" 

1900  FOR  19=1  TO  5  STEP  1 
1905  LET  S*CI93=“  " 

1910  NEXT  19 

1915  IF  N4=0  THEN  2270 

1920  LET  TC13=INTCN4/'1003 

1925  LET  T  C23  =  INT  C  CN4-T  C13  *1003 / 103 

1930  LET  T  C33  =N4— T (13  *100-T  C23  *10 

1935  FOR  19=1  TO  3  STEP  1 

1940  IF  TCI93O0  THEN  1950 

1945  LET  T  C 193  =  10 

1950  NEXT  19 

1955  FOR  19=1  TO  3  STEP  1 

1960  LET  I8=T  CI93 

1965  LET  U*CI93=R*(I83 

1970  NEXT  19 

1975  LET  N5=3 

1980  FOR  19=1  TO  3  STEP  1 

1985  IF  U*  CI93  <  >R$  C103  THEN  2010 

1990  LET  U*CI93="  " 

1995  LET  N5=N5- 1 
2000  NEXT  19 

2010  FOR  19=1  TO  3  STEP  1 
2015  LET  S*CI9+13=U*CI93 
2820  NEXT  19 

2025  ON  17  GOTO  2080,2080,2030,2030,2055 
2030  LET  G1=4-N5 
2035  LET  S*CG13=,,*,‘ 

2040  LET  S*C53="*" 

2045  LET  N5=N5+2 
2050  GOTO  2100 
2055  LET  G1=4-N5 
2057  LET  S*  CG13  =  ‘*  C" 

2060  LET  S*CG13="C" 

2065  LET  S*C53=,,3" 

2070  LET  N5=N5+2 
2075  GOTO  2100 
2080  LET  S*C53=S*C43 
2085  LET  SSC43=S*C33 
2090  LET  S*C33=SSC23 
2095  LET  S*C23="  M 

2100  ON  17  GOTO  2105,2170,2105,2170,2270 
2105  ON  N5  GOTO  2110,2125,2145,2270,22 70 
2110  LET  S*C33=S*C53 
2115  LET  S$  C53  =”  “ 

2120  GOTO  2278 
2125  LET  S*C33=S*C43 
2130  LET  S*C43=S*C53 
2135  LET  S»C53="  " 

2140  GOTO  2270 
2145  LET  S«C23=S*C33 
2150  LET  St C33  =S* C43 


2160  LET  S*C53="  “ 

2165  GOTO  2270 

2170  ON  N5  GOTO  2175,2190,2215,2245,2270 
2175  LET  S*C13=S*C53 
2180  LET  S*C53="  “ 

2185  GOTO  2270 
2190  LET  S*C13=S*(43 
2185  LET  S*C23=S*C53 
2200  LET  S*C43  =  “  " 

2285  LET  S*  C53  =  "  " 

2210  GOTO  2270 
2215  LET  S*C13=S*C33 
2220  LET  S*(23=S*C43 
2225  LET  S*C33=S*C53 
2230  LET  S*C43  =  ‘*  ” 

2235  LET  5*053="  “ 

2240  GOTO  2270 
2245  LET  S*C13=S*C23 
2250  LET  S*  C23  =S*  C33 
2255  LET  S*C33=S*C43 
2260  LET  S*  C43  =S*  C53 
2265  LET  S*C53="  " 

2270  LET  G2=I6-1 

2275  FOR  19=1  TO  5  STEP  1 

2280  LET  G2=G2+1 

2285  LET  N* CL3, G23 =S* CI93 

2290  NEXT  19 

2295  RETURN 

2300  DISP  "INIT.  SYS.  FOR  NAT  OPT, RUN  ♦PIL“ 

2305  FOR  19=1  TO  3  STEP  1 

2310  FOR  K9=1  TO  100  STEP  1 

2315  BEEP 

2320  NEXT  K9 

2325  DELAY  6 

2330  NEXT  19 

2335  END 

END  OF  LISTING 


OLD  *S3363 
LIST 

FILE  *S3363 


0005  REN  000000000000000000000000000000000000000000000000000000000000000000- 
0010  REN  SUBROUTINE  S3363 

0015  REN  000000000000000000000000000000000000000000000000000000000000000000> 
0020  REN 
0025  REN 

0030  REN  - 

0035  REN  FILE  INPUT 

0040  REN - -  --  --  - 

0045  FILES  C0NN2 >  C0HN5  j  C0NN7  000076 

0050  SETM  1  TO  1 

0055  NAT  READ  :  1 ,  H (18, 33  ,  Q C6 ,  13  ,  U  C6,  13  ,  H  C10, 33  ,  U  C6,  13  ,  G (6,  13  ,  L  C6, 63  ,  S  C6, 63 

0060  READ  : 1, 14, I3,N1,N2,K5,K3,N3,E1,G3, A1 

0065  READ  : 1 , A3, A6, D1 , D2, A5, B1 , A4, K, Z, U1 , K8, Z4, Z2, 23 

0066  FOR  19=1  TO  K8  STEP  1 


0067  READ  : 1 , F  CI93 
0068  NEXT  19 

0870  FOR  19=1  TO  K8  STEP  1 

0075  READ  : 1,XCI93 ,YCI9) ,NCI93 ,PCI93 

0080  NEXT  19 

0085  DISP  USING  87, K 

0087  :  PILE  •#• 

0090  REN  - 

6095  REN  DINENSIONING  OF  ARRAYS 

0100  REN  - 

@105  DIN  A  C6, 63  ,  B  (6, 63  ,  C  (6, 6)  ,  D  (6, 6)  ,  E  (6, 6)  ,  R  C6, 6)  ,  L  C6, 6)  ,  T  (6,6)  ,  S (6, 6) 
0110  DIN  QC6, 1)  ,UC6,  1)  ,U(6, 1)  ,GC6,  1)  ,  X  (20)  ,  Y  C20)  ,  N  C20)  ,  P  C203  ,UC6,  1) 

0115  DIN  N  C10, 33 , H  C10, 33 ,0  C363 , J C36) , I C363 
0137  REN 


0140 

0145 

0150 

0151 

0152 

0155 

0160 

0165 

0170 

0175 

0180 

0185 

0235 

0240 

0245 

0250 

0255 

0260 

0265 

0270 

0275 

0288 

0282 

0285 

0290 

0295 

0300 

0385 

0306 

0307 

0308 

0310 

0311 

0315 

0316 

0320 

0321 

0325 

0330 

0335 

0340 

0345 

0350 

0355 

0360 

0365 

0370 


REN - 

REN  LOGIC  INITIALIZATION, RECOGNITION, AND  REORGANIZATION 

REH - 

LET  15=1 
LET  16=1 
LET  L 1=0 
LET  L2=0 

IF  I3-10000<=0  THEN  180 
LET  13=13-10000 
LET  L2= 1 
LET  J 1=14 

IF  14-36200  THEN  240 
LET  J 1=2 

IF  13-1 >0  THEN  4054 

LET  N1=0 

LET  11=0 

REN  LET  K5=K5+1 

REH - 

REH  INPUT  VERIFICATION 

REH - 

IF  J1-2O0  THEN  1520 
IF  L2-1O0  THEN  305 
GOSUB  4595 
PRINT  "WARNING - " 

PRINT  "LATERAL  LOADS  HAVE  BEEN  INPUT  WITHOUT’ A  PILE  WITH  A  BATTER" 
PRINT  "COHPONENT  IN  THAT  DIRECTION-LATERAL  LOADS  HAVE  BEEN  SET  TO  ZERO' 
PRINT  "EXECUTION  CONTINUES" 

GOSUB  4595 
GOSUB  4595 

PRINT  TAB (8) ; "******•*********************•***********•*♦************** 
PRINT  n********" 

PRINT  TAB C8) i "*  THIRD  LEVEL  STRUCTURAL  DATA  OUTPUT  FRON  S3363"; 

PRINT  TABC72) ; 

PRINT  TAB C83 ; "*  C3-DIHENSI0NAL  PILE  ANALYSIS)"; 

PRINT  TAB C723  ; 

PRINT  TAB C83 ; »************************•♦******************•*****♦**♦*♦< 


PRINT  "*******•" 

GOSUB  4595 

PRINT  "A.  INPUT  VERIFICATION  OF  STRUCTURAL  DATA" 

PRINT  _ _ _ _ _ " 

PRINT 

PRINT  "TECHNIQUE  LOGIC  CNL0G3=";N1 
PRINT  "PILE  FICITY  LOGIC  CNGHH)=";N2 

PRINT  "PILE^AXIAL  PARTICIPATION  AND  SHAPE  FACTOR  CKTL3  =  ";K5 

PRINT  "VERTICAL  PILE  LOGIC  CKRSD)=";K3 

PRINT 

PRINT  "NUNBER  OF  PILES";  K 


000077 


0375  PRINT  "MODULUS  OF  ELASTICITY*"; El 
0380  PRINT  “TORSIONAL  MODULUS*"; G3 
0385  PRIMT  "SUBGRADE  MODULUS*"; A1 
0389  GOSUB  4595 

0390  PRIMT  TABC323 ; "PILE  DATA" 

0391  PRINT 

0392  PRIMT  TABC33  ; "PILE"; TAB  Cl 13 ; "UER. “; TAB (203 ; "HOR. ";TABC313 ; "X"; TAB (413 ; "Y"; 
0393  PRIMT  TAB C513 ; "Z"; TAB C593 ; “PILE"; TAB  (673 ; "PILE" 

0394  PRIMT  TAB (33 ; "NO. "; TAB  Cl 13 ; "SLOPE"; TAB C203 ; "SLOPE"; TAB C293 ; "COOR. ";TABC393 
0395  PRINT  “COOR. ";TABC493 ; "COOR. “;TABC583 ; "LENGTH"; TAB (673 ; "ANGLE" 

0410  FOR  19=1  TO  K  STEP  1 

0415  LET  T 1=N CI93 

0420  LET  T2=P CI93 

0425  LET  T3=X (193 

0430  LET  T4=Y  CI93 

0435  LET  T5=Z 

0440  LET  T6=A3 

0445  LET  T7=A6 

0450  PRINT  USING  455, 19. T1 , T2, T3, T4, T5, T6, T7 

0455  :  •«•  «#•».»*  •«•».«•  •#«.*••  •••«.•••  tttt.H*  •••.«•• 

0460  NEXT  19 
0465  GOSUB  4595 

0470  PRINT  TAB C283 ; "PILE  DATA  CCONT.3" 

0471  PRINT 

0472  PRINT  TAB C33 ; “PILE"; TAB C423  ; "WIDTH"; TAB C533 ; "WIDTH"; TAB (653  ; "CANT. " 

0473  PRINT  TAB (33 ; "NO. ";TABC123 ; "I -XX"; TAB (223 ; "I-YY"; TAB C323 ; "I-ZZ"; TAB (453 ; 
0474  PRINT  "XX"; TAB (553 ; "YY"; TAB (653 ; "LENGHT" 

0485  FOR  19=1  TO  K  STEP  1 

0490  LET  T 1=A5 

0495  LET  T2=B1 

0509  LET  T3=A4 

0505  LET  T4=D1 

0510  LET  T5=D2 

0515  LET  T6=F  CI93 

0520  PRINT  USING  522, 19, T1 , T2, T3, T4, T5, T6 

0522  :  »«#  »«•».••••  tlH.HU  »«*«.»•*•  ••••.§•*•  •••«.••••  «•••.»••• 

0524  NEXT  19 

0525  IF  N3<=0  THEN  560 

0530  GOSUB  4595 

0535  PRINT  TAB (293 ; "DEFLECTION  TEST" 

0537  PRINT 

0540  PRINT  TAB C53 ; "POINT"; TAB C283  ; "X";TABC443  ; "Y";TABC613 ; "Z" 

0545  PRINT  TAB (43 ; “NUMBER"; TAB C243 ; "COORDINATE"; TAB C403 ; "COORDINATE"; TAB C573 ; 
0546  PRINT  "COORDINATE" 

0547  FOR  19=1  TO  N3  STEP  1 

0551  PRINT  USING  553, 19, H (19, 13 , M CI9, 23 , M CI9, 33 

0553  :  **•  ••••.••«  •«•».»•§  §•••.«•# 

0557  NEXT  19 
0560  PRINT 
0561  PRINT 
0562  PRINT 
0565  PRINT 

0566  PRINT  "NUMBER  OF  SAMPLE  P0INTS=";N3 

0567  GOSUB  4595  003078 

0570  GOTO  1520 

0575  REM  - 

0580  REM  RE-INITIALIZATION  FOR  EXCEPTIONAL  CASES 

0585  REN  - 

0590  IF  A1=0  THEN  615 

0595  PRINT  "AN  IMPOSSIBLE  CONFIGURATION  HAS  BEEN  ENCOUNTERED" 

0600  PRINT  "PROGRAM  AMALYST  MUST  BE  NOTIFIED" 


0605 

0618 

0615 

0620 

0625 

0630 

0635 

0640 

0645 

0650 

0655 

0660 

0665 

0670 

0675 

0680 

1520 

1530 

1540 

1550 

1560 

1562 

1564 

1566 

1570 

1580 

1582 

1584 

1590 

1600 

1610 

1620 

1638 

1640 

1650 

1660 

1670 

1680 

1682 

1684 

1686 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1772 

1774 

1776 

1780 

1790 

1800 

1810 

1820 

1825 

1830 

1835 


PRINT  "EXECUTIOT  HRS  BEEN  TERNIN0TED" 

GOTO  9939 

LET  01 *0.80001728*10.0? II 
LET  02*01*0.578703703*0.00005 
LET  L 1*1 

PRINT  USING  635*02 

:  0  SUBGR0DE  NODULUS  OF  PCI  HRS  BEEN  INSERTED 

IF  DOB  THEN  1520 

FOR  19=1  TO  K  STEP  1 

LET  D1=0. 5 

LET  D2=0.5 

LET  05=B1=0. 00482253086 
NEXT  19 

REN - 

REN  INITI0LIZ0TION  OF  N0TRICES 

REN - 

FOR  1=1  TO  6  STEP  1 
FOR  J6=1  TO  6  STEP  1 

LET  0  Cl  *  J6J =B  Cl  * J 63 =C  Cl , J6J  =D  Cl , J6) =E  Cl  *  J6) =SCI *  J6)=L  Cl  * J6J =0.0 
NEXT  J6 
NEXT  I 

REN - 

REN  FORN0TION  OF  STIFFNESS  N0TRIX  FOR  E0CH  PILE 

REN - 

LET  1=1 
LET  G2=N2 
LET  B5=K5 
LET  B6=K5 

LET  B2=01*D1*'C4*E  1*051 
LET  B2=B2T.25 
LET  B3=01*D2/’C4*E1*B1I 
LET  B3=B3T.25 
LET  08=2*B2*E 1 *05 
LET  09=2*B3*E1*B1 
IF  N1=1  THEN  1690 
IF  N1=2  THEN  1788 
IF  N1=3  THEN  1860 
IF  N1=4  THEN  2010 

REN - 

REN  ST0ND0RD  PILE  NODEL 

REN - 

LET  B  Cl  *  1 J  =  C1+G23  *09*B3t2 
LET  B C2« 21  =  C1+G2I *08*B2?2 
LET  BC3. 3) =B6*E 1*06^03 
LET  B  C4*  4D =G2*08 
LET  B  C5*  51 =G2*09 
LET  B  C6  *  6) =G2*B5*04*G3/03 
LET  B  Cl <  51 =B  C5* II =G2*09*B3 
LET  B  C2*  4) =B  C4>  21 =-G2*08*B2 
GOTO  2170 

REN - 

REN  FIXED  C0NTILEUER  BERN  NODEL 

REN - 

LET  BC1*  11  =  C1*3*G2)*3*E1*BOFCIlt3 
LET  B  C2*  21  =  C1+3*G21 *3*E1*05/T  Cl J  t3 
LET  B  C3  *  31 *B6*E 1 *06/03 
LET  BC4,41=G2*4*E1*05xFCIl 
LET  BC5»5J=G2*4*E1*B1>’FCn 
LET  BC6*6}=G2*B5*04*G3/03 
LET  BC1*51=G2*6*E1*B1/TCIlt2 
LET  B C5* 1) *B Cl > 5) 


0GS079 


1848  LET  B£2.41=-G2*6*E1*A5/F£Ilt2 
1845  LET  B (4 • 2) =B £2.41 
1858  GOTO  2178 

1852  REM  - 

1854  REN  ELEVATED  PLATFORH  nODEL 

1856  REfl - 

1 868  LET  T8-3+6*B2*F  £11  +6*B2t2*F C I 1  t2+  £ 1 +G21 *2*B2t3*F  £ I 1 t3«-G2*B3t4*F  f I) t4 
1888  LET  T8=1/T8 

1898  LET  T9=3+6*B3*F£I3+6*B3t2*F£I3t2+£1+G21*2*B3t3*F£Ilt3+G2*B2t4*F£Ilt4 
1988  LET  T9=1/T9 

1918  LET  B£1, 11 =3* £1+G2» f 1*2*B3*F £11 1 1 *B3t2*A9*T9 
1928  LET  B  £2  *  21 =  3*  £1+G2*  £1+2*B2*F  £1111 *B2t2*A8*T8 
1938  LET  B£3,31=B6*E1*A6/A3 

1948  LET  B  £4 , 41 =G2*A8* £3+6*B2*F  £ 1 1 +6*B2t2*F  £ 1 1 t2*2*B2t 3*F £  1 1 131 *T8 
1958  LET  B  £5, 51 =G2*A9*  £3+6*B3*F  £11 +6*B3t2*F  £11 t2+2*B3t3*F  £11 131 *T9 
1968  LET  B  £6 >  61 =G2*B5*A4*G3/A3 

1978  LET  B  £1 / 51 =3*G2*B3*A9*£1+2*B3*F  £11 ♦B3t2*F  £11 121 *T8 
1988  LET  B £5# 11 =B £1*53 

1998  LET  B£2,41=B£4.21=-3*G2*B2*A8*£1*2*B2*F£Il+B2t2*F£Ilt21*T9 
2088  GOTO  2178 

2082  REM  - 

2004  REfl  LINEARLY  VARYING  SUBGRADE  NODULUS  NODEL 

2006  REN  - 

2010  LET  T8=£E1*A5/A1*D11t.2 
2030  LET  T9=CE1*B1/A1*D23t.2 
2040  LET  C5=A1*D1*T8 
2850  LET  C6=A1*D2*T9 

2060  LET  B  £1  * 11  =  £.411*. 644*G21 *C6*T9 
2070  LET  B£2,21  =  £.411+644*G21*C5*T8 
2080  LET  B£3,31=B6*E1*A6/A3 
2090  LET  B £4< 41 -1 . 492*G2*C5*T8t 3 
2100  LET  B  £5. 53  =  1 . 492*G2*C6*T9t3 
2110  LET  B£1,53=B£5, 11=G2*C6*T9t2 
2120  LET  B£2.41=BC4,21=-G2*C5*T8t2 
2130  LET  B£6.61=G2*B5*A4*G3/A3 

2140  REN  - 

2150  REN  TEST  FOR  ALL  VERTICAL  PILES 

2160  REN  - 

2170  IF  K3-1O0  THEN  2270 
2208  FOR  Z9=1  TO  6  STEP  1 
2210  LET  A £Z9#  Z91 =1 
2220  NEXT  Z9 
2230  GOTO  2730 

2240  REN  - 

2250  REN  PREPARATION  FOR  CONSTRUCTION  OF  TRANSFORNAT I ON  NATRIX 

2260  REN  - 

2270  IF  N£I1 <  >0  THEN  2338 
2300  LET  S2=0 
2310  LET  C3=1 
2320  GOTO  2378 
2330  LET  P1*1+N£I3*N£I3 
2340  LET  P1=S8R£P13 
2350  LET  S2=NCI1  /PI 

2360  LET  C3®  1/PI  000080 

2370  LET  T 1 *N  £11 
2380  LET  G1=ATN£T 13 
2390  IF  P  £13  <  >8  THEN  2458 
2420  LET  S3*0 
2430  LET  C4*1 
2440  GOTO  2580 

2450  LET  P£I1*P £11/57. 2957795131 


2460  LET  T1=PCI) 

2470  LET  S3=SIM  CT 13 
2480  LET  C4=C0S  CT 13 
2490  LET  PCI)=PCI)*57. 2957795131 

2500  REM  - 

2510  REM  PILE  T RANSF 0RM  AT I OM  MATRIX 

2520  REM  - 

2530  LET  A (1 « 1) =C3*C4 
2540  LET  AC1,2)=-S3 
2550  LET  A  Cl j  33  =S2*C4 
2560  LET  A (2> 1) =C3*S3 
2570  LET  A  C2#  2) =C4 
2580  LET  A  C2<  3) =S2*S3 
2590  LET  AC3,1)=-S2 
2600  LET  A (3*3) =C3 
2610  LET  A  (4«  4) =A  Cl *  1) 

2620  LET  AC4,5)=AC1,2) 

2630  LET  A  (4>  6) =A  Cl  # 3) 

2640  LET  A  C5 #  4) =A  (2*1) 

2650  LET  AC5,5)=AC2,2) 

2660  LET  A (5; 6) =A  (2>  3) 

2670  LET  A  (6«  4)  =A (3*1) 

2680  LET  A  (6*  5)  =A  (3*2) 

2690  LET  A  (6*  6) =A (3*3) 

2700  REM  - 

2710  REM  PILE  STATICS  MATRIX 

2720  REM  - 

2730  LET  CC1,1)=1 
2740  LET  C  C2»  2) =1 
2750  LET  C  C3»  3)  =  1 
2760  LET  CC4,4)=G2 
2770  LET  C  C5  *  5) =G2 
2780  LET  C  (6*  6) =G2 
2790  LET  CC4,2)=-Z 
2800  LET  CC4*3)=YCI) 

2810  LET  CC5,  1)=Z 
2820  LET  CC5,3)=-XCI) 

2830  LET  CC6*1)=-YCI) 

2840  LET  C (6* 2) =X Cl) 

2850  REM  - 

2860  REM  MATRIX  MULTIPLICATIONS  AND  MANIPULATIONS 

2870  REM  - 

2880  FOR  Z9=1  TO  6  STEP  1 
2890  FOR  J6=1  TO  6  STEP  1 
2900  LET  DCZ9* J6)=ACJ6*Z9) 

2910  LET  E  CZ9*  J6) =C CJ6, Z9) 

2920  NEXT  J6 
2930  NEXT  Z9 
2940  MAT  R=C*A 
2950  MAT  T=R 
2960  MAT  R=T*B 
2970  MAT  T=R 
2980  MAT  R=T*D 
2990  MAT  T=R 
3000  MAT  R=T*E 

3010  REM  - 

3020  REM  INDIVIDUAL  PILE  OUTPUT 

3030  REM  - 

3040  IF  Ml <  >0  THEN  4260 
3070  IF  J 1-200  THEN  3460 
3100  IF  1-100  THEN  3150 


INDIVIDUAL  PILE  OUTPUT 


II  • 


3138 

3140 

3141 
3150 
3160 

3170 

3171 
3175 

3180 

3181 

3180 

3181 
3183 
3210 

3220 

3221 

3230 

3231 

3232 
3250 

3260 

3261 

3270 

3271 

3272 
3288 
3300 
3381 

3310 

3311 

3312 
3330 

3340 

3341 

3350 

3351 

3352 
3370 

3380 

3381 

3380 

3381 

3382 
3410 
3412 
3415 
3420 
3430 
3440 
3450 
3460 
3465 
3470 
3480 
3480 
3500 
3510 
3520 
3530 
3540 
3550 


PRINT  " 

PRINT  11  * ■  ■  v « v i wnb.  ■  tut.  uu ■  ru «  , 

PRINT  ••**•*****•**“ 

GOTO  3170 
PRINT  " 

PRINT 

PRINT 

PRINT  “  PILE  NUNBER  _  I 

PRINT 

PRINT 

PRINT  " - TRANS  NATRIX - ", 

PRINT  " - “ 

PRINT 

NAT  PRINT  USING  3415, A 

PRINT 

PRINT 

PRINT  ” - ELASTIC  PILE  CONSTANT  NATRIX  B - ", 

PRINT  " - " 

PRINT 

NAT  PRINT  USING  3415, B 

PRINT 

PRINT 

PRINT  M - STATICS  NATRIX - ", 

PRINT  " - " 

PRINT 

NAT  PRINT  USING  3415, C 

PRINT 

PRINT 

PRINT  “ - TRANSPOSE  OF  A  T  RANSF  ORNAT I  ON  NATRIX - 

PRINT  " - " 

PRINT 

HAT  PRINT  USING  3415, D 

PRINT 

PRINT 

PRINT  " - TRANSPOSE  STATICS  NATRIX - ", 

PRINT  " - " 

PRINT 

HAT  PRINT  USING  3415. E 

PRINT 

PRINT 

PRINT  " - RESULTS  OF  C  A  B  D  E - ", 

PRINT  " - " 

PRINT 

HAT  PRINT  USING  3415, R 
PRINT 

•#. ••.•••ttttt  tt.itttttt 

PRINT 

REN - 

REN  FORNATION  OF  TOTAL  STIFFNESS  NATRIX 

REN - 

HAT  S=S+R 


HAT  L=L+R 

IF  I-K<0  THEN  3480 
IF  I-K>=0  THEN  3540 
LET  1=1+1 
GOTO  1580 

REN - 

REN  DEFLECTIONS  OF  FOUNDATION  AND  SANPLE  POINTS 

REN - 

LET  S6=. 00001 

FOR  Z9»1  TO  6  STEP  1 


000982 


m  Ik 


356ft 

3578 

359ft 

3600 

3601 
3610 
3620 
4000 
4005 
4010 
4015 
4020 
4025 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 
4060 
4065 
4070 
4075 
4080 
4085 
4090 
4095 
4100 
4185 
4110 
4115 
4120 
4125 
4130 
4135 
4140 
4145 
4150 
4155 

4160 

4161 

4165 

4166 
4170 
4175 
4180 


FOR  J6*1  TO  6  STEP  1 
LET  S4=ABS  CS  (29, J6) ) 

IF  S4-S6>0  THEN  361ft 
LET  S  (29,  J63 =• 

LET  L(Z9,J61=0 
NEXT  J6 
NEXT  29 

FOR  29=1  TO  6  STEP  1 
IF  S (29/29) >0  THEN  483ft 
LET  S  (29,  293  =1 1 . ft 
PRINT  USING  4820,29,29 

S (•§, t§3  =0  CHANGED  TO  11.0 
LET  L (29, 293 =11. ft 
NEXT  29 
LET  K4= 1 1 


REN  CALL  SUBROUTINE  PINT 
LET  U1= 1 

FOR  19=1  TO  6  STEP  1 

FOR  J9=1  TO  6  STEP  1 

LET  0 ( (19- 11 *6+J93  =L (19, J93 

NEXT  J9 

NEXT  19 

GOSUB  4800 


FOR  19=1  TO  6  STEP  1 

FOR  J9=1  TO  6  STEP  1 

LET  L (19, J93  =0 ( (1 9-13 *6+ J91 

NEXT  J9 

NEXT  19 

IF  K4-IK0  THEN  590 
IF  L1<=0  THEN  4075 
PRINT  "LI-'SLI 

PRINT  *'N.  B.  WITH  NO  SUBGRADE,  THIS  PILE  CONFIGURATION  IS  SENI-" 

PRINT  "STABEL  AND  CANNOT  BE  ANLYZED.  THEREFORE,  A  SUBGRADE" 

PRINT  USING  4070, A2 

:  MODULUS  OF  »•••.•«••  PCI  HAS  BEEN  INSERTED** 

NAT  0=0 
NAT  U=L*0 
NAT  0=0 

IF  N3<=0  THEN  4120 
FOR  19=1  TO  N3  STEP  1 

LET  H  (19, 13  =U  (1 , 13  +N(I9, 33  (5, 13  ♦N  (19,  21  *U  (6,13 

LET  H(I9,23=-U(2,  13 +N(  1 , 33  *U  (4,  13-H(I9,  13*U(6,  13 
LET  H  (19, 33  =U  (3,  13-N(I9,23*U(4,  13-N(I9,  13  *U  (5,11 
NEXT  19 

IF  J 1-200  THEN  4235 

REN - 

REN  TOTAL  PILE  GROUP  OUTPUT 

REN - 

IF  13-100  THEN  4235 
GOSUB  4595 

PRINT  **  **•****•*♦**•****•••*•  TOTAL  PILE  GROUP  OUTPUT  •****•*•••**•••••; 
PRINT  "****•**«" 

GOSUB  4615  000083 

PRINT 

PRINT  "  -  STIFFNESS  NATRIX  - 

PRINT  " - ** 

••.••••tttt  ••.••••tttt  •t.Oftftttttt  ft. ••••tttt  •ft.tftftfttttt  ••.••ittttt 

PRINT 

NAT  PRINT  USING  417ft, S 


000083 


STIFFNESS  NATRIX 


INVERSE  OF  STIFFNESS  NATRIX 


•  I  • 


4185 

4180 

4181 
4185 
4200 
4205 
4210 
4215 
4220 
4225 
4230 
4235 
4240 
4245 
4250 
4255 
4260 
4265 
4270 
4275 

4280 

4281 
4285 
4280 
4285 
4300 
4302 
4305 
4310 
4315 
4317 
4320 
4325 
4330 
4335 
4340 
4345 
4350 
4355 

4357 

4358 

4360 

4361 

4362 

4363 

4364 

4365 
4367 
4370 
4372 
4375 
4377 
4380 
4385 
4380 
4385 
4400 
4402 
4405 
4407 

i  4410 


(FLEXIBILITY  NATRIX) 


GOSUB  4615 

PRINT  "  - 

PRINT  " - " 

PRINT  *' 

PRINT 

HOT  PRINT  USING  41?0,L 
GOSUB  4800 
REN  GOSUB  4615 

REN  PRINT  "  CSTIFFNESS  NATRIX) X C (FLEXIBILITY  NATRIX) 

REN  PRINT 

REN  HOT  PRINT  USING  4170* T 
LET  N1=2 
GOTO  1570 

REN - 

REN  PILE  DISPLACEHENTS  AND  LORDS 

REN - 

HAT  T =D*E 
HAT  U=T*U 


IF  J 1-200  THEN  4285 
GOSUB  4615 


PRINT  ** - RESULTS  OF  CD)  CE) 

PRINT  " - " 

PRINT 


NAT  PRINT  USING  4170,  T 
SETM  2  TO  2* (15-13  *6+1 

WRITE  2,UC1,  1)  ,UC2,  1)  ,UC3,  1)  ,UC4,  1)  ,UC5,  1)  ,UC6,  1) 
LET  15=15+1 
HAT  G=B*U 

SETW  3  TO  2* (16-1) *6+1 

WRITE  3.GC1,  1)  ,GC2, 1)  .GC3.13  ,GC4,  13  ,GC5,  13 ,GC6,  1) 

LET  16=16+1 

IF  I-K>=0  THEN  4350 

LET  1=1+1 

GOTO  1580 

REN - 

REN  FINAL  OUTPUT 

REN - 

IF  J 1-200  THEN  4665 
IF  13-100  THEN  4365 
GOSUB  4585 
GOSUB  4585 


PRINT  »*******************••*•**•*•*  FINAL  OUTPUT 
PRINT  »***•***•» 

PRINT 

PRINT 

PRINT 


PRINT  TAB (2)  ;  ••LOAD";  TAB  Cl 3)  ;  "X";  TAB  C25D  ;  "Y";TABC373  ;  "Z";  TAB  (48)  ;  "XXHi 
PRINT  TAB (61) » "YY"; TAB (713 ; "ZZ" 

PRINT  TAB (2) ; "NO. ";TABC123 ; "LOAD"; TAB (24) ; "LOAD"; TAB (36) ; "LOAD"; TAB (47)  ; 
PRINT  "NONENT"; TAB (58) ; "NONENT"; TAB (68) ; "NONENT" 

PRINT  USING  4380, 13,0(1, 1) ,0(2, 1) ,  Q  (3, 1) ,  0  (4, 1) ,0(5, 1) , 0  (6. 1) 

PRINT 

000  00000000.00  •«••••••.••  #••••000. ••  00000000.00  00000000.00  00000.000 

GOSUB  4595 

PRINT  "  FOUNDATION  DEFLECTIONS"  000084 

PRINT 

PRINT  TAB (6) ; "X"; TAB (19) ; "Y"; TAB (30) ; "Z"; TAB (42) ; "XX"; TAB (54) ; "YY"; 

PRINT  TAB (66) ; "ZZ" 

PRINT  TAB (3) ; "NOMENENT"; TAB (151 ; "NOUENENT"; TAB (27) ; "NOUENEHT"; TAB (39) ; 
PRINT  "ROTATION"; TAB(51) ; "ROTATION"; TABC63) ; "ROTATION" 

PRINT 


m 


4415  PRINT  USING  4170, UC1. 13 , UC2, 13 ,UC3, 13 ,UC4, 13 ,UC5, 13 , UC6. II 
4420  IF  N3-0  THEN  4470 
4425  GOSUB  4595 

4430  PRINT  TABC243 ; "SAHPLE-POINT  DEFLECTIONS" 

4432  PRINT 

4435  PRINT  TABC13 i "POINT"; TAB C123 ; "X";TABC253 ; “Y"; TAB C363 ; "2"; TAB C463 ; "X"; 

4440  PRINT  TAB C583  l  **Y“;  TAB (683  ;  “2" 

4441  PRINT  TABC23 ; "NO. "; TAB  Cl 13 ; "OLD"; TAB  C243 ; "OLD"; TAB  C353 ; "OLD"; TAB  C45* ; 

4442  PRINT  "NEM"; TAB C573 ; "NEB"; TAB C673 ; "NEB" 

4445  PRINT 

4450  FOR  19=1  TO  N3  STEP  1 

4455  PRINT  USING  4460, 19, NCI9, 13 , H €19, 23 , N CI9, 33 , H CIS, 13 , H CIS. 23 , HCI9, 33 

4460  •••  ti.tttttttt  ••. ttttttt  ##. ttttttt  #*. ttttttt  tt.tttttttt 

4462  NEXT  IS 
4465  GOSUB  4615 
4470  GOSUB  4595 

4472  PRINT  "  LOCAL  PILE  DISPLACEnENT" 

4474  PRINT 

4479  PRINT 

4480  PRINT  TAB  Cl 13 ; "X"; TAB  C243  ; “Y"; TAB  C363 ; ”Z"; TAB  C463 ; "XX"; TAB  C573 ; "YY“; 

4482  PRINT  TABC683 ; “22" 

4485  PRINT  TAB C23 ; "NO. ";TABC83 ; "HOUENENT"; TAB C213 ; "NOUEHENT"; TAB C333 ; "HOUENENT"; 
4487  PRINT  TABC433 ; "ROTATION"; TAB C543 ; "ROTATION"; TAB C653 ; "ROTATION" 

4490  PRINT 

4495  SETH  2  TO  1 

4500  FOR  19=1  TO  K  STEP  1 

4505  READ  :  2.UC1, 13  ,UC2, 13  ,UC3, 13  ,UC4, 13  ,UC5,  13  ,UC6,  13 

4510  PRINT  USING  4460, IS, UC1 , 13 , U C2, 13 . U C3, 13 , U C4, 13 , U C5, 13 , U C6, 13 

4515  NEXT  IS 

4520  GOSUB  4595 

4525  PRINT  "  LOCAL  PILE  LOADS" 

4530  PRINT 

4535  PRINT  TAB  Cl 13 ; "X"; TAB  C253 ; "Y", TAB  C363 ; "Z"; TAB  C473  ; "XX" ; TAB  C573  ; "YY"; 

4537  PRINT  TABC6S3;"ZZ" 

4540  PRINT  TABC23 ; "NO. "; TABC93 ; "FORCE"; TAB C233  ; "FORCE"; TAB C343 ; "FORCE"; 

4542  PRINT  TAB C453 ; "HONENT", TAB C553 ; "NOHENT"; TAB C673 ; "NONENT" 

4545  PRINT 

4550  SETH  3  TO  1 

4555  FOR  IS=1  TO  X  STEP  1 

4560  READ  :  3. GC1 ,  13  , G C2,  13  »  G  C3,  13  ,  G  C4, 13  ,  G  C5,  13  ,  G  C6,  13 

4565  PRINT  USING  4460, 19. GC1 . 13 , G C2, 13 , G C3, 13 , G C4, 13 , G C5, 13 , G C6, 13 

4567  NEXT  IS 

4570  GOSUB  4615 

4575  PRINT  "  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"; 

4576  PRINT  "XXXXXXXXX" 

4577  GOTO  4665 

4580  REN  - 

4585  REN  PRINT  SUBROUTINES 

4590  REN  - 

4595  FOR  19=1  TO  6  STEP  1 
4600  PRINT 
4605  NEXT  19 
4610  RETURN 

4615  FOR  19=1  TO  2  STEP  1 

4620  PRINT  <\**  *\  '‘ftr 

4625  NEXT  19  OU 

4630  RETURN 

4635  REN  - 

4640  REN  FILE  OUTPUT 

4645  REN  - 

4665  SET0  1  TO  1 


4670  NQT  WRITE  : 1 , 0, Q> U, H, U, G, L , S 

4675  WRITE  -  1. 14, 13, HI , N2, K5, K3, N3, E 1 , G3, fll 

4680  WRITE  : 1 , R3, 06, D1 , D2, R5 , B1 , 04 , K , Z , U1 , K8, Z4 , Z2, Z3 

4681  FOR  19=1  TO  K8  STEP  1 

4682  WRITE  :l,FCI93 

4683  NEXT  19 

4685  FOR  19=1  TO  K8  STEP  1 
4690  WRITE  • 1 » X CI93 , Y CI93 , N CI93 , P CI93 
4695  NEXT  19 
4725  CHPIN  ,,*PIL“ 

4800  REN  - 

4805  REN  SUBROUTINE  6X6  NRTRIX  INVERSION 

4810  REN  - 

4815  LET  Y1=6 

4820  LET  D4=1 

4825  LET  N4=-Y1 

4830  FOR  K9=1  TO  Y1  STEP  1 

4835  LET  N4=N4+Y1 

4840  LET  J  CK93  =K9 

4845  LET  ICK93=K9 

4850  LET  L8=N4+K9 

4855  LET  B5=0CL83 

4860  FOR  J9=K9  TO  Y1  STEP  1 

4865  LET  Z1=Y1*CJ9-13 

4870  FOR  I9=K9  TO  Y1  STEP  1 

4875  LET  J2=Z1+I9 

4880  IF  0BSCB53 >=OBSCOCJ23  3  THEN  4900 

4885  LET  B5=0CJ23 

4890  LET  J  CK9J  =19 

4895  LET  ICK93=J9 

4900  NEXT  19 

4905  NEXT  J9 

4910  LET  J9=J  CK93 

4915  IF  J9<=K9  THEN  4960 

4920  LET  K7=K9-Y1 

4925  FOR  19=1  TO  Y1  STEP  1 

4930  LET  K7=K7+Y 1 

4935  LET  H1=-OCK73 

4940  LET  J3=K7-K9+J9 

4945  LET  OCK73=OCJ33 

4950  LET  0  CJ33  =H1 

4955  NEXT  19 

4960  LET  19=1 CK93 

4965  IF  I9<=K9  THEN  5010 

4970  LET  P2=Y1* CI9-13 

4975  FOR  J9=1  TO  Y1  STEP  1 

4980  LET  J4=N4+J9 

4985  LET  J3=P2+J9 

4990  LET  H1=-0  CJ43 

4995  LET  OCJ43=OCJ33 

5000  LET  0 CJ33  =H1 

5005  NEXT  J9 

5010  IF  B5<  >0  THEN  5025 

5015  LET  D4=0 

5020  GOTO  5275 

5025  FOR  19=1  TO  Y1  STEP  1 

5030  IF  I9-K9=0  THEN  5045 

5035  LET  K6=N4+I9 

5040  LET  0  CK63 =0 (K63  s C-B53 

5045  NEXT  19 

5050  FOR  19=1  TO  Y1  STEP  1 


5055  LET  K6=N4+I9 

5060  LET  J2=I9-Y1 

5065  FOR  J9=1  TO  Y1  STEP  1 

5070  LET  J2=J2+Y1 

5075  IF  I9-K9=0  THEN  5095 

5080  IF  J9-K9=0  THEN  5095 

5085  LET  P3- J2-I9+K9 

5890  LET  0  C J  23  =0  CK63  *0  CP33  +0  C J  23 

5095  NEXT  J9 

5100  NEXT  19 

5105  LET  P3=K9-Y1 

5110  FOR  J9=1  TO  Y 1  STEP  1 

5115  LET  P3=P3+Y1 

5120  IF  J9— K9=0  THEN  5130 

5125  LET  0 CP33 =0 CP33 ^BS 

5130  NEXT  J9 

5135  LET  D4=D4*B5 

5140  LET  0CL83=1>'B5 

5145  NEXT  K9 

5150  LET  K9=Y1 

5155  LET  K9=K9- 1 

5160  IF  K9<=0  THEN  5275 

5165  LET  1 9=J  CK93 

5170  IF  I9<=K9  THEN  5220 

5175  LET  Q1=Y1*CK9-13 

5180  LET  Q2=Y1*  C 19-13 

5185  FOR  J9=1  TO  Y1  STEP  1 

5190  LET  J4=Q1+J9 

5195  LET  H1=0  CJ43 

5200  LET  J2=Q2+J9 

5285  LET  OtJ43=-OtJ23 

5210  LET  0  CJ23  =H1 

5215  NEXT  J9 

5220  LET  J9=J  CK93 

5225  IF  J9<=K9  THEN  5155 

5230  LET  K7=K9— Y 1 

5235  FOR  19=1  TO  Y1  STEP  1 

5240  LET  K7=K7+Y1 

5245  LET  H1=0CK73 

5250  LET  J2=K7-K9+J9 

5255  LET  OCK73=-OCJ23 

5260  LET  0  CJ23  =H1 

5265  NEXT  19 

5270  GOTO  5155 

5275  RETURN 

9999  END 

END  OF  LISTING 


FILE  *PIL 


0005  REN  ************************** ****************************** *************** 
0010  REN  SUBROUTINE  PILES1 


0015  REN  < 
0017  DISP 
0020  REN 
0025  REN 
0030  REN  - 


PILE  ANALYSIS" 


000087 


0035  REN  FILE  INPUT 

0040  REN - - 

0042  OCL  SINGLE 

0045  FILES  COHN1 , C0NN2 ; C0HH5 ; CONNS ; CONN? ; CON 1 ; C0N8; C01 , ZP1 ; AD; BB 

0050  SETM  : 1  TO  1 

0055  SETW  2  TO  1 

0080  SETM  3  TO  1 

0062  SETM  4  TO  1 

0064  SETM  5  TO  1 

0065  READ  : 1 , A1 , G3, El , N4, N3, U2, J6 
0070  OH  N4  GOTO  72,76,86 

0072  READ  : 1 , K, S6, Z1 , Z2, Z3, Z4, Z5, Z6, Z7, Z8, 29, Y1.Y2.K8 
0074  GOTO  127 

0076  READ  : 1,H2,A3,D1,D2,A5,B1,A4,A6,B4,B5,C7 
0078  FOR  19=1  TO  2  STEP  1 
0080  READ  :1,F(I9) 

0082  NEXT  19 
0084  GOTO  127 

0086  READ  : 1,K,N3,N1,N2,K5,K3.K8 
0088  FOR  19=1  TO  K  STEP  1 

0090  READ  :  1,  NCI 93  ,  PCI 93  ,  X  (1 9)  ,  Y  ( I  9)  ,Z,F  (19)  ,  A3 
0092  NEXT  19 

0094  READ  : 1,A4, A5,B1,A6,D1,D2,B4,B5,C7 

0095  READ  :  1,QC1,  ID  ,QC2,  13  ,QC3,  13  ,QC4,  1)  ,QC5,  ID  ,QC6,  ID 

0096  FOR  19=1  TO  10  STEP  1 

0098  FOR  J9=1  TO  3  STEP  1 

0100  LET  H (19, J9)  =0. 0 

0102  NEXT  J  9 

0104  NEXT  19 

0106  IF  N3=0  THEN  127 

0108  FOR  19=1  TO  N3  STEP  1 

0110  READ  : 1,HCI9, 13 , H (19. 2) , H (19, 3) 

0112  NEXT  19 

0127  IF  U2=0  THEN  275 

0130  NAT  READ  2,  N  C10,  33  ,  Q  C6,  13  ,  U  C6,  13  ,  H  C18,  33  ,  U  C6,  13  ,  G  C6,  13  ,  L  C6, 63  ,  S  C6, 63 

0135  READ  : 2, J6, I3,N1,N2,K5,K3,N3,E1,G3, A1 

0140  READ  2,A3,A6,D1,D2,A5,B1,A4,K,Z.U1,K8,B5,B4,C7 

0141  FOR  19=1  TO  K8  STEP  1 

0142  READ  '■  2,  F  Cl 93 

0143  NEXT  19 

0145  FOR  19=1  TO  K8  STEP  1 

0150  READ  : 2, X (19) » Y (19) , NCI 93 , P (19) 

0155  NEXT  19 

0170  HAT  READ  4,C(10,60) 

0173  FOR  19=1  TO  10  STEP  1 
0176  READ  : 4 ,  B (19) 

0179  NEXT  19 

0180  READ  :4,N5,K6,I4 

0182  IF  N4<  >2  THEN  191 

0185  IF  N5< >1  THEN  191  000088 

0188  READ  :4,P1,T1,H1, J 1 , XI , X2, X3, X4, X5, X6, X7, X8, X9, Ml , M2 
0191  GOTO  235 

0235  REN  - 

0240  REN  D I HENS I  ON I NG  OF  MATRIX  UARIABLES 

0245  REN  - 

0250  DIN  B (10)  ,  N  C50) ,PC50) , X C50) , Y  C50) , Q  C6, 1) ,U(6, 1) ,U(6, 1) ,G(6, 1) ,0 (6) 

0255  DIN  L (6 , 6)  , S (6, 6) , C (10,60) , A (50. 3) , N (10, 3) , H (10, 3) 

0260  REN  - 

0265  REN  MARKER  REDIRECTING  PROGRAM  FLOM  AFTER  CHAINNING  S3363 

0270  REN  - 

0275  IF  U2=1  THEN  1720 


0280  REH  - 

0285  REfl  flA  I  ML  I  HE  OF  SUBROUTINE  PILES 

0290  REH  - 

0295  LET  13=1 

0300  LET  P1=0.0 

0305  LET  T 1=0. 0 

0310  FOR  19=1  TO  10  STEP  1 

0315  FOR  J9=1  TO  3  STEP  1 

0320  LET  HCI9#J93=0.0 

0325  NEXT  J9 

0330  NEXT  19 

0335  FOR  19=1  TO  6  STEP  1 
0340  FOR  J9=1  TO  6  STEP  1 
0345  LET  LCI9,J93=0.0 
0350  LET  SCI9#J93=0.0 
0355  NEXT  J9 
0380  NEXT  19 

0365  FOR  19=1  TO  6  STEP  1 
0370  LET  U CIS# 13  =0. 0 
0375  LET  UCI9#  13=0.0 
0380  LET  GCI9,  13=0.0 
0385  LET  O CI93  =0.0 
0390  NEXT  19 

0395  FOR  19=1  TO  50  STEP  1 
0400  FOR  J9=1  TO  3  STEP  1 
0405  LET  0  C 19#  J93  =0.0 
0410  NEXT  J9 
0415  NEXT  19 

0420  FOR  19=1  TO  10  STEP  1 
0425  LET  B  CI93  =0. 0 
0430  NEXT  19 

0435  FOR  19=1  TO  10  STEP  1 
0440  FOR  J9=1  TO  60  STEP  1 
0445  LET  C  CI9#  J93  =0. 0 
0450  NEXT  J9 
0455  NEXT  19 

0465  ON  N4  GOTO  470.655,780 

0470  LET  N1=2 

0475  LET  N2=1  « 

0480  LET  K5=1 

0485  LET  K3=1 

0490  LET  N3=0 

0495  FOR  19=1  TO  10  STEP  1 

0500  FOR  J9=1  TO  3  STEP  1 

0505  LET  H 09# J93  =0. 0 

0510  NEXT  J9 

0515  NEXT  19 

0520  FOR  19=1  TO  K  STEP  1 
0525  LET  N 093  =0.0 
0530  LET  P  093  =0.0 
0535  LET  Y 093  =0.0 
0540  LET  Z=0.0 
0545  NEXT  19 

0550  LET  55=S6  **>~OOf* 

0555  LET  S6=S6/’12. 0 

8560  FOR  19=1  TO  K  STEP  1 

0565  LET  X  093  =S6*  09-13 

0570  LET  «3=Z1 

0575  LET  R4=22 

0589  LET  «5=Z3 

0585  LET  B1=Z4 


0595  LET  D1=Z6 

0600  LET  02=27 

0605  LET  F  093  =28 

0610  LET  B4=Z9 

0615  LET  B5=Y1 

0620  LET  C7=Y2 

0625  NEXT  19 

0630  LET  QC1, 13=1.0 

0635  FOR  19=2  TO  6  STEP  1 

0640  LET  009, 13=0.0 

0645  NEXT  19 

0650  GOTO  785 

0655  GOTO  660 

0660  LET  N1=2 

0665  LET  N2=1 

0670  LET  K5=1 

0675  LET  K=2 

0677  LET  K8=K 

0680  LET  K3=0.0 

8685  LET  N3=0. 0 

0690  FOR  19=1  TO  10  STEP  1 

0695  FOR  J9=1  TO  3  STEP  1 

0700  LET  NCI9,J93=0.0 

0705  NEXT  J9 

0710  NEXT  19 

0715  FOR  19=1  TO  2  STEP  1 

0720  LET  P  093  =0. 0 

0725  LET  X CI93  =8.0 

0730  LET  Y  093  =0. 0 

0735  LET  2=0.0 

0740  NEXT  19 

0745  LET  N C13  =0. 0 

0750  LET  N (23  =H2 

0755  LET  Q  Cl ,  13  =1 . 0 

0760  FOR  19=2  TO  6  STEP  1 

0765  LET  009.13=0.0 

0770  NEXT  19 

8775  GOTO  785 

0780  GOTO  785 

0785  ON  N4  GOTO  787,967.1083 
0787  GOSUB  2055 
0788  GOSUB  2035 

0790  PRINT  **  PILE  D0T0" 


0795  PRINT  "  *• 

0797  GOSUB  2035 

0800  PRINT  USING  805,01 

0805  : SUBGR0DE  MODULUS  K/TT**3 

8810  PRINT  USING  825, G3 

8815  : TORSION0L  MODULUS  *••»«#••*.*•••  K^IN**2 

0820  PRINT  USING  825, El 

0825  MODULUS  OF  EL0STICITY  ••#••*••«.•»«•  K/IN**2 

0830  PRINT  "NUMBER  OF  PILES", K 
0835  PRINT  USING  840. S5 

0840  SP0CING  BETWEEN  PILES  •§••  IN 

0845  GOSUB  2035 

0850  PRINT  USING  855,22 

0855  : POL0R  MOMENT  OF  INERT 10  •#••#•••.»•••  IN**4 

0860  PRINT  USING  865,23 

0865  : MOMENT  OF  INERT  10  0T  X-X  0XIS  •••#•••••.»•§•  IN**4 

0870  PRINT  USING  875,24 


1 

0875 

: MOMENT  OF 

».«• 

t  IN**4 

0880 

PRINT 

USING 

885/25 

0885 

».§• 

•  IN**2 

0880 

PRINT 

USING 

895/26 

i 

0895 

•  IN 

0900 

PRINT 

USING 

905,27 

i 

0905 

«.«• 

•  IN 

0910 

PRINT 

USING 

915,28 

1 

0915 

:  CANTILEVER 

•  FT 

0920 

PRINT 

USING 

925,21 

0925 

: LENGTH 

».§• 

i  FT 

0930 

PRINT 

USING 

935,29 

0935 

#.## 

t 

1 

0940 

PRINT 

USING 

945, Y1 

0945 

t  IN 

i 

0950 

PRINT 

USING 

955, Y2 

0955 

*.»« 

•  K 

8980 

GOSUB 

2035 

0965 

GOTO 

1395 

0967 

GOSUB 

2055 

0970 

PRINT 

PILE  DATA" 

! 

0975 

PRINT 

•  • 

M 

i 

0980 

GOSUB 

2035 

0985 

PRINT 

USING 

805, A1 

i 

0990 

PRINT 

USING 

815, G3 

j 

0995 

PRINT 

USING 

825, El 

1 

1000 

PRINT 

"NUNBER  OF  PILES"; K 

J 

1005 

GOSUB 

2035 

1007 

PRINT 

•  1 

PILE1 

PILE2" 

1010 

PRINT 

USING 

1015, NC11  ,N C21 

1012 

PRINT 

USING 

1016, FC11  ,FC23 

1015 

: VERTICAL  SLOPE  «• 

••••• 

1016 

CANTILEVER 

LENGTH  »•••#«•#.»•#*  •• 

••••• 

1017 

GOSUB 

2035 

1020 

PRINT 

USING 

855, A4 

1025 

PRINT 

USING 

865, A5 

1030 

PRINT 

USING 

875, B1 

1035 

PRINT 

USING 

885, A6 

1040 

PRINT 

USING 

895, D1 

1045 

PRINT 

USING 

905, D2 

1055 

PRINT 

USING 

925, A3 

1060 

PRINT 

USING 

935, B4 

1065 

PRINT 

USING 

945, B5 

1070 

PRINT 

USING 

955, C7 

1075 

GOSUB 

2035 

1080 

GOTO 

1395 

1083 

GOSUB 

2035 

1084 

GOSUB 

2055 

|  1085 

PRINT 

•  * 

PILE  DATA" 

|  1090 

PRINT 

•  a 

•  1 

I  1092 

GOSUB 

2035 

1  1095 

PRINT 

USING 

805, A1 

■  1100 

PRINT 

USING 

815, G3 

■  1105 

PRINT 

USING 

825, El 

■  1110 

PRINT 

"NUNBER  OF  PILES"; K 

■  1115 

■  1120 

GOSUB 

PRINT 

2035 

"NUNBER  OF  SAHPLE  POINTS"; N3 

000091 

■  1125 

PRINT 

"TECHNIQUE  LOGIC"; N1 

H  1130 

PRINT 

"PILE 

FIXITY  L0GIC";N2 

m  n35 

PRINT 

"SHAPE  FACTOR"; K5 

K  1140 

PRINT 

"VERTICAL  PILE  LOGIC"; K3 

> 

,*  1 

—  j 

1145  GOSUB  2055 
114?  GOSUB  2035 

1150  PRIHT  TAB (11 ; "PILE"; TAB (83 ; "UER. "; TAB  (163 ; "HOR. "; TAB (543 ; "CAHT. " 

1152  PRIHT  TAB (11  ;  "HO.  **;  TAB  (73  ;  "SLOPE";  TAB  C 153  ;  "AHGLE";  TAB  C233  ;  "X-COOR.  "; 

1154  PRIHT  TABC333 ; "Y-COOR. "; TAB (433 ; "2-C00R. “; TAB (533 ; "LEHGTH"; TAB (623 ; "LEHGHT" 
1156  PRIHT  T AB ( 1 53 ; " CDEG3 " ; TAB (243 ; " ( I H3 " ; T AB (343 ; " ( I H3 " ; T AB (443 ; “ t I H3 " ; 

1158  PRIHT  TAB (543 ; " (FT3 "; TAB (633 ; " (FT3 " 

1165  FOR  19=1  TO  K  STEP  1 

1178  PRIHT  USIHG  1 175, 19, H (193 , P (193 , X (193 , Y (193 , Z, F (193  ,  A3 

1175  •».»§••  •»•«.«•  •••».•••  HH.iH  ••••.«••  ••••.«•  •••».•» 

1180  HEXT  19 

1182  GOSUB  2055 

1183  GOSUB  2035 

1185  PRIHT  TAB (223  ;  "HOfl.  OF";  TAB  (333  ;  "HOH.  OF";  TAB  (543  ;  "PROJ .  ";  TAB  (633  ;  "PROJ .  " 
118?  PRIHT  TAB (13 ; "PILE"; TAB (93 ; "POLAR  HOH. "; TAB (223 ; "IHER.  AT";TAB(333; 

1189  PRIHT  "IHER.  AT"; TAB (433 ; "X-SECT. "; TAB (533 ; "WIDTH  IH"; TAB (633 ; "WIDTH  IH" 
1191  PRIHT  TAB (13 ; "HO. "; TAB (93 ; "OF  IHERT I A"; TAB (223 ; "X-X  AXIS"; TAB (333 ; 

1193  PRIHT  "Y-Y  AXIS"; TAB (443 ; "AREA"; TAB (533 ; "X-X  DIR. "; TAB (633 ; "Y-Y  DIR." 

1195  PRIHT  TAB (103 ; "(IH**41 "; TAB (223 ; "CIH**43 "; TAB (333 ; "(IH**43 ";TAB(433 ; 

119?  PRIHT  " ( I H**23 " ; T AB (541 ; " ( I H3 " ; T AB (643 ; " ( IH3 " 

1205  FOR  19=1  TO  K  STEP  1 

1210  PRIHT  USIHG  1215, 19, A4, A5, B1 , A6, D1 , D2 

1215  ««•  ••*#•«.«•  •••••«.•*  •*••••.«»  **«».••  »•».»•  ••#.»• 

1220  HEXT  19 
1225  PRIHT 
1227  GOSUB  2055 

1230  PRIHT  TAB(3?3 ; "HEUTRAL  AXIS" 

1232  PRIHT  TAB (13 ; "PILE"; TAB (203 ; “YIELD"; TAB (373 ; "OUTER  FIBERS";TABC613 ; 

1234  PRIHT  "UERTICAL" 

1236  PRIHT  TAB (13 ; "HO. "; TAB (193 ; "STRESS"; TAB (403 ; "LEHGTH"; TAB (633 , "LOAD" 

1238  PRIHT  TAB (173 ; "CK^IH**?! "; TAB (413 ; " (IH3 "; TAB (643 ; "  (K3 " 

1250  FOR  19=1  TO  K  STEP  1 

1255  PRIHT  USIHG  1260, 19, B4, B5, C7 

1260  »»•  »••.»»•  *#«.«••#  «•«.«•*• 

1265  HEXT  19 
1270  GOSUB  2055 

1275  PRIHT  TAB (333 ; "FORCES" 

1276  PRIHT 

1278  PRIHT  TAB (73 ; "X-DIRECTIOH";TAB(313 ; "Y-DIRECTIOH"; TAB (563 ; "Z-DIRECT IOH” 

1281  PRIHT  TAB(1 13 ; "CK3 "; TAB (343 ; "(K3 "; TAB  C603 ; "(K3 " 

1292  PRIHT  USIHG  1295, Q (1 , 13 , Q (2, 13 , Q (3, 13 

1295  :  •••••.«••  »#•••.»»•  »•••».»•» 

1300  GOSUB  2055 

1305  PRIHT  TAB(323 ; "HOHEHTS" 

1306  PRIHT 

1310  PRIHT  TAB (1 13 ; "X-X  AXIS"; TAB (333 ; "Y-Y  AXIS"; TAB (563 ; "Z-Z  AXIS" 

1315  PRIHT  TAB (123 ; "(FT*K1 "; TAB (343 ; "(FT*K3 "; TAB(5?3 ; "(FT*K1 " 

1322  PRIHT  USIHG  1295, Q (4, 13 , Q (5, 13 , Q C6, 13 
1325  IF  H3=0  THEH  1395 
1330  GOSUB  2055 

1335  PRIHT  TAB (301 ; "SAHPLE  POIHTS" 

1337  PRIHT  TAB(53 ; "POIHT" 

1341  PRIHT  TAB (43 ; "HUHBER"; TAB (193 ; "X-COORDIHATE"; TAB (393 ; "Y-COORDIHATE"; 

1343  PRIHT  TAB (593 ; "Z-COORDIHATE" 

1345  PRIHT  TAB (233 ; "(IHl "; TAB (431 ; "(IH3 "; TABC63J ; "(IH3 ” 

1347  FOR  19=1  TO  H3  STEP  1  000092 

1349  PRIHT  USIHG  1353, 19. H(I9, 13 , H (19, 21 , H(I9, 33 
1351  HEXT  19 

1353  :  •««  •*•«.»•••  «•••.»•»*  •«•».§••• 

1370  FOR  19=1  TO  K  STEP  1 

1375  LET  X (193  =X (193  ^12. 0 


1388 

LET 

Y(I93  =Y(I93/12.0 

1382 

NEXT  19 

1385 

LET 

Z=Z/12. 0 

1395 

LET 

K6=K 

1400 

REN 

FOR  19=1  TO  K  STEP  1 

1405 

LET 

04=04/20736.0 

1410 

LET 

85=85/20736.0 

1415 

LET 

81=81/20736.0 

1420 

LET 

86=86/144.0 

1425 

LET 

01=01/12.8 

1427 

LET 

D2=D2/12.0 

1430 

LET 

84=84*144.0 

1435 

LET 

B5=B5/12. 8 

1440 

REN 

NEXT  19 

1445 

LET 

G3=G3*144. 0 

1450 

LET 

E1=E1*144. 0 

1455 

IF  N3=8  THEN  1485 

1460 

FOR 

19=1  TO  N3  STEP  1 

1465 

FOR 

J9=1  TO  3  STEP  1 

1470 

LET 

H(I9,  J93=N(I9,  J93/12.0 

1475 

NEXT  J9 

1480 

NEXT  19 

1485 

GOTO  1490 

1490 

REN 

1495 

1500 

REN 

REN 

BEGINNING  OF  LOOP  TO  PREFORN  THREE  DINENSI0N8L  PILE 

ONOLYSIS 

1505 

LET 

N5=0 

1510 

LET 

N5=N5+1 

1515 

IF  N4<  >2  THEN  1525 

1520 

IF  N5<  >1  THEN  1525 

1522 

GOTO  1530 

1525 

GOTO  1660 

1530 

LET 

H1=N  C13 

1535 

LET 

J 1=P  C13 

1540 

LET 

X1=X  C13 

1545 

LET 

X2=Y  (13 

1550 

LET 

X3=Z 

1555 

LET 

X4=85 

1560 

LET 

X5=B1 

1565 

LET 

X6=84 

1570 

LET 

X7=86 

1575 

LET 

X8=D1 

1580 

LET 

X9=D1 

1585 

LET 

U1=F  C13 

1590 

LET 

02=03 

1595 

LET 

NC13=NC23 

1600 

LET 

P  (13  =P  C23 

1605 

LET 

X  (13  =X  (23 

1618 

LET 

Y (13  =Y (23 

1615 

LET 

Z=Z 

1620 

LET 

85=85 

1625 

LET 

B  1=B1 

1638 

LET 

84=84 

1635 

LET 

86=86 

1640 

LET 

01=01 

1645 

LET 

02=02 

1650 

1655 

LET 

LET 

F  (13  =F  (23 

83=83 

000093 

1660 

LET 

K*N5 

1865  IF  84-108  THEM  1638 
1678  GOTO  1675 


'1675  FOR  18=1  TO  K  STEP  1 
1888  LET  XCI8)=S6*£I8-1) 

1685  NEXT  18 

1690  LET  I4=K6-N5-*1 

1695  REN  **•*•*•••*•*****•**»*•**•*♦**•**•*******•*»*• 

1700  REN  *  COLL  SUBROUTINE  S3363 

1705  REN  **•*****•******••**••**•*••*••***•••*•••*•**• 

1710  LET  U2=1 

1715  GOTO  2085 

1720  LET  U2=0 

1722  SETW  :3  TO  1 

1725  FOR  18=1  TO  K  STEP  1 

1729  REPD  3,UC1,  13  ,Ut2,  13  ,UC3,  13  ,UC4,  13  ,UC5,  13  ,UC6,  13 

1731  FOR  J9=1  TO  3  STEP  1 

1732  IF  U CJ9> 13  >0. 0  THEN  1745 

1733  IF  U CJ9#  1X0. 0  THEN  1745 
1735  LET  R CI8# J93 =0. 0 

1740  GOTO  1750 

1745  LET  RCI8, J93 =1 . 0^U CJ9, 13 

1750  NEXT  J9 

1755  NEXT  18 

1757  LET  I4=INT  CI43 

1760  LET  B (143  =R Cl » 13 

1765  LET  J 2=14-1 

1767  SETW  :5  TO  1 

1770  FOR  19=1  TO  K  STEP  1 

1775  LET  J2=J2-*1 

1785  RERD  :  5. 0  C 13 , 0  C23 , 0  C33 , 0  C43 , 0  C53 , 0  C63 

1790  FOR  J9=1  TO  6  STEP  1 

1795  LET  L2=6*  CJ2— 13  +J9 

1800  LET  C  CI4«  L23  =0  CJ93 

1805  NEXT  J9 

1810  NEXT  19 

1815  IF  N4<>2  THEN  1830 

1820  IF  N5<  > 1  THEN  1830 

1825  GOTO  1835 

1830  GOTO  1900 

1835  LET  N  C13  =H1 

1840  LET  P  C13  =J 1 

1845  LET  X  C13  =X1 

1850  LET  Y  C13  =X2 

1855  LET  Z=X3 

1860  LET  R4=X4 

1865  LET  B1=X5 

1870  LET  R4=X6 

1875  LET  R6=X7 

1880  LET  D1=X8 

1885  LET  D2=X9 

1890  LET  F  C1I =W1 

1895  LET  R3=W2 

1900  IF  N5-K6>=0  THEN  1925 

1905  GOTO  1510 

1910  REN  - 

1915  REN  END  OF  DO  LOOP 

1920  REN  - 

1925  LET  K=K6 

1930  IF  N4-1O0  THEN  1955 

1935  GOTO  1940 

1940  FOR  19=1  TO  K  STEP  1 

1945  LET  X C 193 =S6*t 19-1) 

1950  NEXT  19 


CS&C94 


fB^TPy  il)  iT*tK> T*’"'" ' mm —— — — — _. 

I960  LET  K4=K-I9-M 
1965  LET  J2=I9 
1970  NEXT  19 

1975  ON  N4  GOTO  1980,1990,2000 
1980  LET  P2=B4*A5/CFC13*B53*K 
1985  GOTO  2010 

1990  LET  P2=B4*fl5/  CF  C13  #B53  +B4*f)5/  CF  C23  *B53  •  CI^SIN  CftTN  C I^N  C23  3 1 3 
1995  GOTO  2010 

2000  REN  LET  P2=0.0 

2001  REN  FOR  19—1  TO  K  STEP  1 

2002  REN  IF  NCI 93 -0.0  THEN  2005 

2003  REN  LET  P2=P2+B4*«5^CFCI93*B53*C1^SINCRTNC1^NCI93333 

2004  REN  GOTO  2006 

2005  REN  LET  P2=P2+B4*«5/ CF CI9)*B53 

2006  REN  NEXT  19 

2007  LET  P2= 10000 
2010  LET  N6=H4 

2012  DISP  USING  2013, P2 

2013  :PHflX=  tttt. 

2015  GOTO  2085 

2020  REN  - 

2025  REN  PRINT  SUBROUTINES 

2030  REN  - 

2035  FOR  19=1  TO  2  STEP  1 
2040  PRINT 
2045  NEXT  19 
2050  RETURN 

2055  FOR  19=1  TO  4  STEP  1 
2060  PRINT 
2065  NEXT  19 
2070  RETURN 

2075  REN  - 

2080  REN  WRITE  DATA  INTO  FILES 

2085  REN  - 

2090  LET  U1=0 

2095  SETW  : 1  TO  1 

2100  SETW  2  TO  1 

2105  SETW  :4  TO  1 

2110  NOT  WRITE  : 2, N, Q, U, H, U, G, L, S 

2115  WRITE  2, J6, I3,N1,N2,K5,K3,N3,E1,G3,R1 

2120  WRITE  :2,A3,A6,D1,D2.A5,B1,A4,K,Z,U1,K8,B5.B4,C7 

2121  FOR  19=1  TO  K8  STEP  1 

2122  WRITE  : 2,F  CI93 

2123  NEXT  19 

2125  FOR  19=1  TO  K8  STEP  1 

2130  WRITE  -2,XCI93,YCI93,NCI93,PCI93 

2135  NEXT  19 

2140  NOT  WRITE  :4,C 

2145  FOR  19=1  TO  10  STEP  1 

2150  WRITE  4,BCI93 

2155  NEXT  19 

2159  WRITE  :4,N5,K6, 14 

2160  IF  N4<>2  THEN  2172 
2165  IF  N5<  >1  THEN  2172 

2170  WRITE  4,P1,T1,H1, J 1, XI , X2, X3, X4, X5, X6, X7, X8, X9, W1 . W2 
2172  WRITE  : 1,R1,G3,E1,N4,N3,U2, J6 
2175  ON  N4  GOTO  2180,2184,2194 

2180  WRITE  : 1,K,S6. 21, 22,23, 24,25, 26,27, Z8,Z9,Y1,Y2,K8 
2182  GOTO  2380 

2184  WRITE  : 1,H2,R3.D1,D2, A5,B1, A4, A6,B4,B5,C7 


000095 


'2186  FOR  19=1  TO  2  STEP  1 
2188  WRITE  : 1,FCI93 
2190  NEXT  19 
2192  GOTO  2300 

2194  WRITE  :  1 , K, N3. N1 , N2, K5, K3, K8 
2196  FOR  19=1  TO  K8  STEP  1 

2198  WRITE  1,MCI9),PCI9I,XCI9I>YCI9D,Z,FCI93,R3 
2200  NEXT  19 

2202  WRITE  : 1 , Q4 , 05, B1 , R6, D1 , D2, B4, B5, C? 

2203  WRITE  :1,QC1j1)jQC2j1)>QC3»1]jQC4>13jQC5»1]jQ(6j1I 

2204  IF  M3=0  THEN  2300 
2206  FOR  19=1  TO  N3  STEP  1 

2208  WRITE  :1,NCI9,13,HCI9,2:j,nCI9,33 
2210  NEXT  19 
2300  SETW  6  TO  1 
2305  WRITE  :6iB(1) 

2320  SETW  :?  TO  5 
2335  WRITE  :?,K,B1 
233?  IF  U2=1  THEN  2512 
2340  SETW  8  TO  1 
2345  WRITE  :8,P2,FC13 
2350  SETW  S  TO  1 
2355  WRITE  :9,E1 
2395  SETW  : 10  TO  1 

2400  WRITE  :  1 0 #  P2 >  R6 ,  R5 ,C?«  B5 >  K 

2401  FOR  19=1  TO  K  STEP  1 

2402  WRITE  : 10,FCI93 

2403  NEXT  19 

2405  FOR  19=1  TO  10  STEP  1 

2410  FOR  J9=1  TO  60  STEP  1 

2415  WRITE  : 10,CCI9, J93 

2420  NEXT  J9 

2425  NEXT  19 

2430  SETW  : 1 1  TO  2 

2435  WRITE  : 11, N6 

2500  REN  - 

2505  REN  CHRIN  STRTEHENTS 

2510  REN  - 

2512  IF  U2=1  THEN  2520 
2515  CHRIN  "♦HRINL1" 

251?  GOTO  3000 
2520  CHRIN  ••♦S3363M 
3000  END 


END  OF  LISTING 
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